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

Added find-closure-assigned-var-index!

Browse source
This commit is contained in:
Justin Ethier 2018-10-25 17:47:41 -04:00
parent a2d877717e
commit 6577d9d462
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
scheme/cyclone/cgen.sld
View file

@ -988,6 +988,7 @@
param " = " arg ";\n"))))
params
args))))
(trace:error `(JAE ,fun ,ast-id ,params ,args (c:num-args cargs)))
(c-code
(string-append
(c:allocs->str (c:allocs cfun) "\n")
@ -1414,6 +1415,24 @@
(string-append
"((closureN)" (mangle var) ")->elements[" idx "]"))))))
(define (find-closure-assigned-var-index! ast-fnc closure-args)
(let ((index 0)
(fnc (adb:get/default (ast:lambda-id ast-fnc) #f)))
;(trace:info `(find-closure-assigned-var-index! ,ast-fnc ,fnc ,closure-args))
(cond
((and fnc
(pair? (adbf:assigned-to-var fnc)))
(for-each
(lambda (arg)
(when (and (ref? arg) (member arg (adbf:assigned-to-var fnc)))
;(trace:error `(JAE closure for ,(ast:lambda-id ast-fnc) self ref is index ,index))
(adbf:set-self-closure-index! fnc index)
)
(set! index (+ index 1))
)
closure-args)
)
(else #f))))
;; c-compile-closure : closure-exp (string -> void) -> string
;;
@ -1513,6 +1532,7 @@
cv-name ".num_args = " (number->string (compute-num-args lam)) ";"
)))))
;(trace:info (list 'JAE-DEBUG trace macro?))
(find-closure-assigned-var-index! lam (cdr exp))
(cond
(use-obj-instead-of-closure?
(create-object))