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

DCE eliminates effect-free branches to the same continuation

Browse source 
* module/language/cps/dce.scm (compute-live-code): Eliminate some
  branches.
This commit is contained in:
Andy Wingo 2017-11-21 21:46:08 +01:00
parent b2dc53a3e2
commit a3173d1758
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/language/cps/dce.scm
View file

@ -173,8 +173,11 @@ sites."
(or (or
;; No defs; perhaps continuation is $ktail. ;; No defs; perhaps continuation is $ktail.
(not defs) (not defs)
;; We don't remove branches. ;; We don't remove branches, unless both branches go to the
(match exp (($ $branch) #t) (_ #f)) ;; same place.
(match exp
(($ $branch kt) (not (eqv? k kt)))
(_ #f))
;; Do we have a live def? ;; Do we have a live def?
(any-var-live? defs live-vars) (any-var-live? defs live-vars)
;; Does this expression cause all effects? If so, it's ;; Does this expression cause all effects? If so, it's