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

Added all-args to adbf

Browse source
This commit is contained in:
Justin Ethier 2018-09-19 17:45:22 -04:00
parent bd8e5cb1de
commit 47da3d5be6
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -78,6 +78,7 @@
%adb:make-fnc
adb:function?
adbf:simple adbf:set-simple!
adbf:all-params adbf:set-all-params!
adbf:unused-params adbf:set-unused-params!
adbf:side-effects adbf:set-side-effects!
adbf:well-known adbf:set-well-known!
@ -210,6 +211,7 @@
(define-record-type <analysis-db-function>
(%adb:make-fnc
simple
all-params
unused-params
assigned-to-var
side-effects
@ -218,6 +220,7 @@
)
adb:function?
(simple adbf:simple adbf:set-simple!)
(all-params adbf:all-params adbf:set-all-params!)
(unused-params adbf:unused-params adbf:set-unused-params!)
(assigned-to-var adbf:assigned-to-var adbf:set-assigned-to-var!)
(side-effects adbf:side-effects adbf:set-side-effects!)
@ -235,6 +238,7 @@
(define (adb:make-fnc)
(%adb:make-fnc
'? ;; simple
#f ;; all-params
'? ;; unused-params
'() ;; assigned-to-var
#f ;; side-effects