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

Experimental change

Browse source
This commit is contained in:
Justin Ethier 2017-04-29 11:02:58 +00:00
parent 7a90159109
commit 79cde357b1
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -959,6 +959,17 @@
(analyze:find-inlinable-vars e args))) (analyze:find-inlinable-vars e args)))
(cdr exp))) (cdr exp)))
;(reverse (cdr exp)))) ;(reverse (cdr exp))))
;; If primitive mutates its args, ignore if ivar is not mutated (??)
;((and (prim? (car exp))
; (prim:mutates? (car exp))
; (> (length exp) 1))
; (analyze:find-inlinable-vars (cadr exp) args)
; ;; First param is always mutated
; (for-each
; (lambda (e)
; (if (not (ref? e))
; (analyze:find-inlinable-vars e args)))
; (cddr exp)))
((and (not (prim? (car exp))) ((and (not (prim? (car exp)))
(ref? (car exp))) (ref? (car exp)))
(define ref-formals '()) (define ref-formals '())