mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

Add simplification pass

Browse source 
* module/Makefile.am:
* module/language/cps/compile-bytecode.scm:
* module/language/cps/simplify.scm: New pass.
This commit is contained in:
Andy Wingo 2014-01-10 22:50:12 +01:00
parent 305cccb43c
commit 22a79b55b8
3 changed files with 280 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/language/cps/compile-bytecode.scm
View file

@ -36,6 +36,7 @@
#:use-module (language cps elide-values)
#:use-module (language cps primitives)
#:use-module (language cps reify-primitives)
#:use-module (language cps simplify)
#:use-module (language cps slot-allocation)
#:use-module (language cps specialize-primcalls)
#:use-module (system vm assembler)
@ -59,27 +60,24 @@
;; aren't used, and thus shouldn't be consed.
(let* ((exp (run-pass exp eliminate-dead-code #:eliminate-dead-code? #t))
(exp (run-pass exp simplify #:simplify? #t))
(exp (run-pass exp contify #:contify? #t))
(exp (run-pass exp inline-constructors #:inline-constructors? #t))
(exp (run-pass exp specialize-primcalls #:specialize-primcalls? #t))
(exp (run-pass exp elide-values #:elide-values? #t))
(exp (run-pass exp eliminate-dead-code #:eliminate-dead-code? #t)))
(exp (run-pass exp eliminate-dead-code #:eliminate-dead-code? #t))
(exp (run-pass exp simplify #:simplify? #t)))
;; Passes that are needed:
;;
;; * Abort contification: turning abort primcalls into continuation
;; calls, and eliding prompts if possible.
;;
;; * Common subexpression elimination. Desperately needed. Requires
;; effects analysis.
;; * Common subexpression elimination. Desperately needed.
;;
;; * Loop peeling. Unrolls the first round through a loop if the
;; loop has effects that CSE can work on. Requires effects
;; analysis. When run before CSE, loop peeling is the equivalent
;; of loop-invariant code motion (LICM).
;;
;; * Generic simplification pass, to be run as needed. Used to
;; "clean up", both on the original raw input and after specific
;; optimization passes.
exp))