From 2ddabc9494757f0245ef30382062d611bc03c0fc Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 13 Mar 2021 23:17:00 -0500 Subject: [PATCH] Omit assignments to unused local vars --- scheme/cyclone/cgen.sld | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index f7c281a9..5b22c910 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -1824,7 +1824,7 @@ (cps? (let ((i 0) (cstr "") - ;;;(scm-args (ast:lambda-formals->list exp)) + (scm-args (ast:lambda-formals->list exp)) (args formals-as-list)) ;; Strip off extra varargs since we will load them ;; up using a different technique @@ -1834,23 +1834,23 @@ (cddr (reverse args))))) ;; Generate code to unpack args into locals w/expected names (for-each - (lambda (arg) - ;;;(lambda (scm-arg arg) - ;;;(trace:error `(DEBUG ,scm-arg ARG ,arg)) - ;;;(let ((var (adb:get scm-arg))) - ;;; (when (and (> (adbv:ref-count var) 0) - ;;; (not (null? (adbv:ref-by var)))) + (lambda (scm-arg arg) + (trace:error `(DEBUG ,scm-arg ARG ,arg)) + (let ((var (adb:get/default scm-arg #f))) + (when (and var + (> (adbv:ref-count var) 0) + (not (null? (adbv:ref-by var)))) (set! cstr (string-append cstr arg " = args[" (number->string i) "];" - )) ;) + )))) (set! i (+ i 1))) - ;;;(if has-closure? - ;;; (cdr scm-args) - ;;; scm-args) + (if has-closure? + (cdr scm-args) + scm-args) (if has-closure? (cdr args) args))