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 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:cgen-id adbf:set-cgen-id!
adbf:closure-size adbf:set-closure-size!
adbf:self-closure-index adbf:set-self-closure-index!
adbf:calls-self? adbf:set-calls-self!
with-fnc
with-fnc!
@ -229,6 +230,7 @@
well-known
cgen-id
closure-size
self-closure-index
calls-self
)
adb:function?
@ -247,6 +249,8 @@
(cgen-id adbf:cgen-id adbf:set-cgen-id!)
;; Number of elements in the function's closure
(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?
(calls-self adbf:calls-self? adbf:set-calls-self!)
)
@ -260,6 +264,7 @@
#f ;; well-known
#f ;; cgen-id
-1 ;; closure-size
-1 ;; self-closure-index
#f ;; calls-self
))