in-global.arc @@ -6,4 +6,5 @@ (load "codegen.arc") (load "sharedvars.arc") (load "rm-global.arc") +(load "in-global.arc") arc2c.arc @@ -510,6 +510,7 @@ int main (int argc, char * argv[]) { (,to-3-if "3-arg-if TRANSFORMATION") ; --------AST form (,[xe _ ()] "AST TRANSFORMATION") + (,in-global "GLOBAL INLINING") (,rm-global "UNUSED GLOBAL REMOVAL") (,sharedvars-convert-assert "SHARED VARIABLE CONVERSION") (,cps-convert "CPS-CONVERSION") @@ -517,9 +518,12 @@ int main (int argc, char * argv[]) { (= xe-global-cte* (make-initial-cte)) (= d (reduce (fn (old-d (f desc)) - (let new-d (f old-d) + (let new-d nil + (when debugmode + (pr "------------------------------ ")) + (prn desc) + (= new-d (f old-d)) (when debugmode - (prn "------------------------------ " desc) (ppr-sexp (source new-d))) new-d)) chain d)) codegen.arc 447b5e5ebed8f98ae5449b0e0546814fd330600b Alan Manuel K. Gloria almkglor@gmail.com http://github.com/sacado/arc2c/commit/dda397858cde24b1f21edf9eac3119ba0fd20ad9 dda397858cde24b1f21edf9eac3119ba0fd20ad9 2008-04-09T06:05:56-07:00 2008-04-09T06:05:56-07:00 Added global function inlining 7186d4a18a3a44d233a2df258a7a9e54ae1a2b86 Alan Manuel K. Gloria almkglor@gmail.com