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

Added cgen-id parameter

Browse source
This commit is contained in:
Justin Ethier 2018-09-14 18:20:08 -04:00
parent f461e26fa4
commit 6dfe91fdc6
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -72,6 +72,7 @@
adbv:self-rec-call? adbv:self-rec-call?
adbv:set-self-rec-call! adbv:set-self-rec-call!
with-var with-var
with-var!
;; Analyze functions ;; Analyze functions
adb:make-fnc adb:make-fnc
%adb:make-fnc %adb:make-fnc
@ -80,7 +81,9 @@
adbf:unused-params adbf:set-unused-params! adbf:unused-params adbf:set-unused-params!
adbf:side-effects adbf:set-side-effects! adbf:side-effects adbf:set-side-effects!
adbf:well-known adbf:set-well-known! adbf:well-known adbf:set-well-known!
adbf:cgen-id adbf:cgen-id!
with-fnc with-fnc
with-fnc!
) )
(begin (begin
;; The following two defines allow non-CPS functions to still be considered ;; The following two defines allow non-CPS functions to still be considered
@ -210,6 +213,7 @@
assigned-to-var assigned-to-var
side-effects side-effects
well-known well-known
cgen-id
) )
adb:function? adb:function?
(simple adbf:simple adbf:set-simple!) (simple adbf:simple adbf:set-simple!)
@ -222,6 +226,8 @@
;; well-known procedure is one whose value is never used except at call ;; well-known procedure is one whose value is never used except at call
;; sites where it is known. ;; sites where it is known.
(well-known adbf:well-known adbf:set-well-known!) (well-known adbf:well-known adbf:set-well-known!)
;; Store internal ID generated for the lambda by the cgen module
(cgen-id adbf:cgen-id adbf:cgen-id!)
) )
(define (adb:make-fnc) (define (adb:make-fnc)
(%adb:make-fnc (%adb:make-fnc
@ -230,6 +236,7 @@
'() ;; assigned-to-var '() ;; assigned-to-var
#f ;; side-effects #f ;; side-effects
#f ;; well-known #f ;; well-known
#f ;; cgen-id
)) ))
;; A constant value that cannot be mutated ;; A constant value that cannot be mutated