summaryrefslogtreecommitdiff
path: root/module/language/cps/optimize.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-07-24 16:50:19 +0200
committerAndy Wingo <wingo@pobox.com>2015-07-24 16:51:04 +0200
commitee85e2969f623278e095c5facda4430b664a04aa (patch)
treeaff0939d7638f9504de1d40f57f4ad3ea977ef48 /module/language/cps/optimize.scm
parentbf6930b3f60a371039542570d6149ea04d3612ea (diff)
downloadguile-ee85e2969f623278e095c5facda4430b664a04aa.tar.gz
Rotate comparisons down to loop back-edges
* module/language/cps/rotate-loops.scm: New pass. * module/Makefile.am: * module/language/cps/optimize.scm: Wire up the new pass.
Diffstat (limited to 'module/language/cps/optimize.scm')
-rw-r--r--module/language/cps/optimize.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/module/language/cps/optimize.scm b/module/language/cps/optimize.scm
index c7545cc42..7721d6385 100644
--- a/module/language/cps/optimize.scm
+++ b/module/language/cps/optimize.scm
@@ -32,6 +32,7 @@
#:use-module (language cps licm)
#:use-module (language cps prune-top-level-scopes)
#:use-module (language cps prune-bailouts)
+ #:use-module (language cps rotate-loops)
#:use-module (language cps self-references)
#:use-module (language cps simplify)
#:use-module (language cps specialize-primcalls)
@@ -105,4 +106,5 @@
(define-optimizer optimize-first-order-cps
(eliminate-dead-code #:eliminate-dead-code? #t)
+ (rotate-loops #:rotate-loops? #t)
(simplify #:simplify? #t))