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

Experimental code

Browse source
This commit is contained in:
Justin Ethier 2016-11-10 18:45:34 +00:00
parent c2fd9d3383
commit a6eafa7869
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -644,8 +644,17 @@
(define (inline-prim-call? exp ivars args)
(call/cc
(lambda (return)
;; TODO:
;; experimenting with switching inline-ok? with code using data from analysis DB
;(trace:error `(inline-ok? ,exp ,ivars ,args))
(inline-ok? exp ivars args (list #f) return)
;(inline-ok? exp ivars args (list #f) return)
(for-each
(lambda (v)
(with-var v (lambda (var)
(if (not (adbv:inlinable var))
(return #f)))))
ivars)
;; End experimental code
(return #t))))
;; Make sure inlining a primitive call will not cause out-of-order execution