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

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) ; (inline-ok? (cadr exp) ivars args arg-used return)
;) ;)
(else (else
;(when (ref? (car exp)) (when (ref? (car exp))
; (with-var (car exp) (lambda (var) (with-var (car exp) (lambda (var)
; (when (adbv:defines-lambda-id var) (when (adbv:defines-lambda-id var)
; ;TODO: return #f if any ivars are members of vars-mutated-by-set from the adbf ;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) (with-fnc (adbv:defines-lambda-id var) (lambda (fnc)
; (for-each (for-each
; (lambda (ivar) (lambda (ivar)
; (if (member ivar (adbf:vars-mutated-by-set fnc)) (if (member ivar (adbf:vars-mutated-by-set fnc))
; (return #f)) (return #f))
; ) )
; ivars)))) ivars))))
; ))) )))
(for-each (for-each
(lambda (e) (lambda (e)
(inline-ok? e ivars args arg-used return)) (inline-ok? e ivars args arg-used return))