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

Added self-closure-index

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

5
scheme/cyclone/cps-optimizations.sld
View file

@ -88,6 +88,7 @@
adbf:well-known adbf:set-well-known! adbf:well-known adbf:set-well-known!
adbf:cgen-id adbf:set-cgen-id! adbf:cgen-id adbf:set-cgen-id!
adbf:closure-size adbf:set-closure-size! adbf:closure-size adbf:set-closure-size!
adbf:self-closure-index adbf:set-self-closure-index!
adbf:calls-self? adbf:set-calls-self! adbf:calls-self? adbf:set-calls-self!
with-fnc with-fnc
with-fnc! with-fnc!
@ -229,6 +230,7 @@
well-known well-known
cgen-id cgen-id
closure-size closure-size
self-closure-index
calls-self calls-self
) )
adb:function? adb:function?
@ -247,6 +249,8 @@
(cgen-id adbf:cgen-id adbf:set-cgen-id!) (cgen-id adbf:cgen-id adbf:set-cgen-id!)
;; Number of elements in the function's closure ;; Number of elements in the function's closure
(closure-size adbf:closure-size adbf:set-closure-size!) (closure-size adbf:closure-size adbf:set-closure-size!)
;; Index of the function in its closure, if applicable
(self-closure-index adbf:self-closure-index adbf:set-self-closure-index!)
;; Does this function call itself? ;; Does this function call itself?
(calls-self adbf:calls-self? adbf:set-calls-self!) (calls-self adbf:calls-self? adbf:set-calls-self!)
) )
@ -260,6 +264,7 @@
#f ;; well-known #f ;; well-known
#f ;; cgen-id #f ;; cgen-id
-1 ;; closure-size -1 ;; closure-size
-1 ;; self-closure-index
#f ;; calls-self #f ;; calls-self
)) ))