Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Omit assignments to unused local vars

Browse source
This commit is contained in:
Justin Ethier 2021-03-13 23:17:00 -05:00
parent 27484cd4a4
commit 2ddabc9494
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
scheme/cyclone/cgen.sld
View file

@ -1824,7 +1824,7 @@
(cps? (cps?
(let ((i 0) (let ((i 0)
(cstr "") (cstr "")
;;;(scm-args (ast:lambda-formals->list exp)) (scm-args (ast:lambda-formals->list exp))
(args formals-as-list)) (args formals-as-list))
;; Strip off extra varargs since we will load them ;; Strip off extra varargs since we will load them
;; up using a different technique ;; up using a different technique
@ -1834,23 +1834,23 @@
(cddr (reverse args))))) (cddr (reverse args)))))
;; Generate code to unpack args into locals w/expected names ;; Generate code to unpack args into locals w/expected names
(for-each (for-each
(lambda (arg) (lambda (scm-arg arg)
;;;(lambda (scm-arg arg) (trace:error `(DEBUG ,scm-arg ARG ,arg))
;;;(trace:error `(DEBUG ,scm-arg ARG ,arg)) (let ((var (adb:get/default scm-arg #f)))
;;;(let ((var (adb:get scm-arg))) (when (and var
;;; (when (and (> (adbv:ref-count var) 0) (> (adbv:ref-count var) 0)
;;; (not (null? (adbv:ref-by var)))) (not (null? (adbv:ref-by var))))
(set! cstr (string-append (set! cstr (string-append
cstr cstr
arg arg
" = args[" " = args["
(number->string i) (number->string i)
"];" "];"
)) ;) ))))
(set! i (+ i 1))) (set! i (+ i 1)))
;;;(if has-closure? (if has-closure?
;;; (cdr scm-args) (cdr scm-args)
;;; scm-args) scm-args)
(if has-closure? (if has-closure?
(cdr args) (cdr args)
args)) args))