mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

Run CSE to clean up after closure conversion

Browse source 
* module/language/cps/optimize.scm: Enable CSE over first-order CPS.
This commit is contained in:
Andy Wingo 2015-10-28 10:07:38 +00:00
parent 04356dabb9
commit 3f345f564f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/optimize.scm
View file

@ -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))