From 3f345f564f1d27a75bed9664ab6eaf738c19f364 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 28 Oct 2015 10:07:38 +0000 Subject: [PATCH] Run CSE to clean up after closure conversion * module/language/cps/optimize.scm: Enable CSE over first-order CPS. --- module/language/cps/optimize.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/cps/optimize.scm b/module/language/cps/optimize.scm index 8777222c9..571d5ffd8 100644 --- a/module/language/cps/optimize.scm +++ b/module/language/cps/optimize.scm @@ -105,7 +105,7 @@ (define-optimizer optimize-first-order-cps (hoist-loop-invariant-code #:licm? #t) - ;; FIXME: CSE here to eliminate duplicate free-ref terms. + (eliminate-common-subexpressions #:cse? #t) (eliminate-dead-code #:eliminate-dead-code? #t) (rotate-loops #:rotate-loops? #t) (simplify #:simplify? #t))