mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-03 02:36:19 +02:00
Code Activity

Port prune-top-level-scopes pass to CPS2

Browse source 
* module/language/cps2/prune-top-level-scopes.scm: Port to CPS2.

* module/language/cps2/optimize.scm: Enable prune-top-level-scopes
  pass.

* module/Makefile.am (CPS2_LANG_SOURCES): Add prune-top-level-scopes.scm.
This commit is contained in:
Andy Wingo 2015-05-24 18:24:49 +02:00
parent 2838c6e857
commit dd2e0f519d
3 changed files with 66 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -25,6 +25,7 @@
(define-module (language cps2 optimize)
#:use-module (ice-9 match)
#:use-module (language cps2 dce)
#:use-module (language cps2 prune-top-level-scopes)
#:use-module (language cps2 simplify)
#:export (optimize))
@ -53,6 +54,7 @@
;; analysis on the box created for the set!.
(run-pass! eliminate-dead-code #:dce2? #t)
(run-pass! prune-top-level-scopes #:prune-top-level-scopes? #t)
(run-pass! simplify #:simplify? #t)
program)