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

Store cgen-id in the analysis DB

Browse source
This commit is contained in:
Justin Ethier 2018-09-16 18:54:31 -04:00
parent a9c5d5d268
commit 189728d571
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/cyclone/cgen.sld
View file

@ -915,6 +915,9 @@
(with-fnc (ast:lambda-id (closure->lam fun)) (lambda (fnc) (with-fnc (ast:lambda-id (closure->lam fun)) (lambda (fnc)
(if (and #f (adbf:well-known fnc)) (if (and #f (adbf:well-known fnc))
#f #f
;; TODO: raw lambda is called:
;; use adbf:cgen-id to get it -
;(this-cont (string-append "__lambda_" (number->string lid)))
;;(c-code ;;(c-code
;; (string-append ;; (string-append
;; (c:allocs->str (c:allocs cfun) "\n") ;; (c:allocs->str (c:allocs cfun) "\n")
@ -1125,11 +1128,8 @@
(if (equal? cps? '(#f)) (if (equal? cps? '(#f))
(set! inline-lambdas (cons id inline-lambdas))) (set! inline-lambdas (cons id inline-lambdas)))
(when ast:lam (when ast:lam
TODO: store the allocated ID within the adbf (with-fnc! ast:lam (lambda (fnc)
(with-fnc! ast:lam (lambda () (adbf:set-cgen-id! fnc id))))
(adbf:set-cge
)
)
id)) id))
; get-lambda : lambda-id -> (symbol -> string) ; get-lambda : lambda-id -> (symbol -> string)