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

Stage change to self-ref closure

Browse source
This commit is contained in:
Justin Ethier 2019-09-18 12:23:42 -04:00
parent 2816a4771e
commit 5c728224d1
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/cgen.sld
View file

@ -1605,6 +1605,7 @@
)
(mangle free-var)))
(closure->fv exp))) ; Note these are not necessarily symbols, but in cc form
(free-vars:str/code (map cons free-vars (closure->fv exp)))
(cv-name (mangle (gensym 'c)))
(lid (allocate-lambda lam (c-compile-lambda lam trace cps?) cps?))
(use-obj-instead-of-closure?
@ -1650,12 +1651,16 @@
cv-name sep "num_elements = " (number->string (length free-vars)) ";\n"
cv-name sep "elements = (object *)" ev-name ";\n";
(let loop ((i 0)
(vars free-vars))
(vars free-vars:str/code))
(if (null? vars)
""
(string-append
cv-name sep "elements[" (number->string i) "] = "
(car vars) ";\n"
(if (and (ref? (cdr (car vars)))
(mutated-loop-var? (cdr (car vars))))
(string-append "&" cv-name) ;; Self-ref
(car (car vars)) )
";\n"
(loop (+ i 1) (cdr vars)))))))))
(create-mclosure (lambda ()
(let ((prefix