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

Issue #282 - assign to temporary variables

Browse source 
Do this to prevent issues when one variable's value depends upon another's.
This commit is contained in:
Justin Ethier 2018-12-02 22:21:27 -05:00
parent 69a35f7d2e
commit f9d03342f2
1 changed files with 22 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
scheme/cyclone/cgen.sld
View file

@ -1047,6 +1047,10 @@
)
)
(let* ((params (map mangle (cdr (adbf:all-params adbf:fnc))))
(tmp-params (map
(lambda (param)
(string-append "tmp_" param))
params))
(args (map car raw-cargs))
(reassignments
;; TODO: may need to detect cases where an arg is reassigned before
@ -1057,18 +1061,27 @@
(map
(lambda (param arg)
(cond
;; TODO: with tmps this is not really applicable anymore:
((equal? param arg) "") ;; No need to reassign
(else
(string-append
param " = " arg ";\n"))))
params
args))))
tmp-params
args)))
(swap-tmps
(apply string-append
(map
(lambda (p tmp)
(string-append " " p " = " tmp "; "))
params tmp-params)))
)
;(trace:error `(JAE ,fun ,ast-id ,params ,args (c:num-args cargs)))
(c-code
(c-code/vars
(string-append
(c:allocs->str (c:allocs cfun) "\n")
(c:allocs->str (c:allocs cargs) "\n")
reassignments
swap-tmps
;; TODO: consider passing in a "top" instead of always calling alloca in macro below:
"continue_or_gc" (number->string (c:num-args cargs))
"(data,"
@ -1076,7 +1089,12 @@
(if (> (c:num-args cargs) 0) "," "")
(string-join params ", ")
");"
)))
)
(map
(lambda (param)
(string-append " object " param "; "))
tmp-params)
))
)
((and wkf fnc