From a2c0d8c511a54598ccebbe4b928f88676b1487a5 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 29 Apr 2017 19:02:23 -0400 Subject: [PATCH] Debug traces --- scheme/cyclone/cps-optimizations.sld | 2 ++ 1 file changed, 2 insertions(+) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 67bf88ce..e34ce7cc 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -826,6 +826,7 @@ (if (not (adbv:inlinable var)) (set! fast-inline #f))))) ivars) +;(trace:error `(DEBUG inline-prim-call ,exp ,ivars ,args ,cannot-inline ,fast-inline)) (cond (cannot-inline #f) (else @@ -914,6 +915,7 @@ ;; If the code gets this far, assume we came from a place ;; that does not allow the var to be inlined. We need to ;; explicitly white-list variables that can be inlined. +; (trace:error `(DEBUG not inlinable ,exp ,args)) (with-var exp (lambda (var) (adbv:set-inlinable! var #f))))) ((ast:lambda? exp)