HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4129676
)
CSE comments
author
Andy Wingo
<wingo@pobox.com>
Thu, 3 Jul 2014 07:03:45 +0000
(09:03 +0200)
committer
Andy Wingo
<wingo@pobox.com>
Thu, 3 Jul 2014 07:03:45 +0000
(09:03 +0200)
* module/language/cps/cse.scm (compute-available-expressions): Add
clarifying comment.
module/language/cps/cse.scm
patch
|
blob
|
blame
|
history
diff --git
a/module/language/cps/cse.scm
b/module/language/cps/cse.scm
index
48cf922
..
ab48290
100644
(file)
--- a/
module/language/cps/cse.scm
+++ b/
module/language/cps/cse.scm
@@
-101,7
+101,9
@@
index corresponds to MIN-LABEL, and so on."
;; Fast-path if this expression clobbers nothing.
in)
(else
- ;; Kill clobbered expressions.
+ ;; Kill clobbered expressions. There is no need to check on
+ ;; any label before than the last dominating label that
+ ;; clobbered everything.
(let ((first (let lp ((dom label))
(let* ((dom (vector-ref idoms (label->idx dom))))
(and (< min-label dom)