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

Debug traces

Browse source
This commit is contained in:
Justin Ethier 2017-04-29 19:02:23 -04:00
parent f80da86712
commit a2c0d8c511
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -826,6 +826,7 @@
(if (not (adbv:inlinable var)) (if (not (adbv:inlinable var))
(set! fast-inline #f))))) (set! fast-inline #f)))))
ivars) ivars)
;(trace:error `(DEBUG inline-prim-call ,exp ,ivars ,args ,cannot-inline ,fast-inline))
(cond (cond
(cannot-inline #f) (cannot-inline #f)
(else (else
@ -914,6 +915,7 @@
;; If the code gets this far, assume we came from a place ;; If the code gets this far, assume we came from a place
;; that does not allow the var to be inlined. We need to ;; that does not allow the var to be inlined. We need to
;; explicitly white-list variables that can be inlined. ;; explicitly white-list variables that can be inlined.
; (trace:error `(DEBUG not inlinable ,exp ,args))
(with-var exp (lambda (var) (with-var exp (lambda (var)
(adbv:set-inlinable! var #f))))) (adbv:set-inlinable! var #f)))))
((ast:lambda? exp) ((ast:lambda? exp)