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

Allow integer devirtualization to be disabled

Browse source 
* module/language/cps/optimize.scm (optimize-higher-order-cps)
  (cps-default-optimization-options): Add #:devirtualize-integers?.
This commit is contained in:
Andy Wingo 2017-11-30 17:00:37 +01:00
parent 5675e46410
commit 67901cde76
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -98,7 +98,7 @@
(elide-values #:elide-values? #t) (elide-values #:elide-values? #t)
(prune-bailouts #:prune-bailouts? #t) (prune-bailouts #:prune-bailouts? #t)
(simplify #:simplify? #t) (simplify #:simplify? #t)
(devirtualize-integers #:eliminate-dead-code? #t) (devirtualize-integers #:devirtualize-integers? #t)
(peel-loops #:peel-loops? #t) (peel-loops #:peel-loops? #t)
(eliminate-common-subexpressions #:cse? #t) (eliminate-common-subexpressions #:cse? #t)
(type-fold #:type-fold? #t) (type-fold #:type-fold? #t)
@ -131,6 +131,7 @@
#:cse? #t #:cse? #t
#:type-fold? #t #:type-fold? #t
#:resolve-self-references? #t #:resolve-self-references? #t
#:devirtualize-integers? #t
#:specialize-numbers? #t #:specialize-numbers? #t
#:licm? #t #:licm? #t
#:rotate-loops? #t #:rotate-loops? #t