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

Enabled faster mutated-by-set

Browse source
This commit is contained in:
Justin Ethier 2019-01-17 16:26:32 -05:00
parent bee311de80
commit 4b72131ac6
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1306,18 +1306,18 @@
; (inline-ok? (cadr exp) ivars args arg-used return)
;)
(else
;(when (ref? (car exp))
; (with-var (car exp) (lambda (var)
; (when (adbv:defines-lambda-id var)
; ;TODO: return #f if any ivars are members of vars-mutated-by-set from the adbf
; (with-fnc (adbv:defines-lambda-id var) (lambda (fnc)
; (for-each
; (lambda (ivar)
; (if (member ivar (adbf:vars-mutated-by-set fnc))
; (return #f))
; )
; ivars))))
; )))
(when (ref? (car exp))
(with-var (car exp) (lambda (var)
(when (adbv:defines-lambda-id var)
;TODO: return #f if any ivars are members of vars-mutated-by-set from the adbf
(with-fnc (adbv:defines-lambda-id var) (lambda (fnc)
(for-each
(lambda (ivar)
(if (member ivar (adbf:vars-mutated-by-set fnc))
(return #f))
)
ivars))))
)))
(for-each
(lambda (e)
(inline-ok? e ivars args arg-used return))