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

WIP - experimental optimization

Browse source
This commit is contained in:
Justin Ethier 2017-07-11 18:53:06 -04:00
parent c817d447b9
commit d78a516138
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -847,6 +847,24 @@
; A (set!) could still mutate variables the primitive is ; A (set!) could still mutate variables the primitive is
; using, causing invalid behavior. ; using, causing invalid behavior.
;(prim-calls-inlinable? (cdr exp)) ;(prim-calls-inlinable? (cdr exp))
;; Testing - every arg only used once
;(and
; (every
; (lambda (param)
; (with-var param (lambda (var)
; (equal? 1 (adbv:ref-count var)))))
; (ast:lambda-formals->list (car exp)))
; ;; Do not inline if prim mutates, to avoid cases where
; ;; a var may be modified out-of-order. May be possible
; ;; to be more intelligent about this in the future.
; (every
; (lambda (arg)
; (and (prim-call? arg)
; (not (equal? 'cell (car arg)))
; (not (prim:mutates? (car arg)))))
; (cdr exp)))
(inline-prim-call? (inline-prim-call?
(ast:lambda-body (car exp)) (ast:lambda-body (car exp))
(prim-calls->arg-variables (cdr exp)) (prim-calls->arg-variables (cdr exp))