mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Declare #:cps? as an available optimization

Browse source 
* module/language/tree-il/optimize.scm (tree-il-optimizations): Add
  #:cps?, on by default from -O1.  This enables "guild compile -O2
  -Ono-cps foo.scm".
This commit is contained in:
Andy Wingo 2020-05-11 11:23:24 +02:00
parent 6c741a04ef
commit ffb210567d
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/tree-il/optimize.scm
View file

@ -70,7 +70,8 @@
;; time enough that we reserve it for -O2. Also, this makes -O1 avoid ;; time enough that we reserve it for -O2. Also, this makes -O1 avoid
;; assumptions about top-level values, in the same way that avoiding ;; assumptions about top-level values, in the same way that avoiding
;; resolve-primitives does. ;; resolve-primitives does.
'((#:resolve-primitives? 2) '((#:cps? 1)
(#:resolve-primitives? 2)
(#:expand-primitives? 1) (#:expand-primitives? 1)
(#:letrectify? 2) (#:letrectify? 2)
(#:seal-private-bindings? 3) (#:seal-private-bindings? 3)