mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

Remove useless code in CSE

Browse source 
* module/language/cps/cse.scm (eliminate-common-subexpressions-in-fun):
Defs must be a list.
This commit is contained in:
Andy Wingo 2023-06-22 14:38:40 +02:00
parent 2534326e5e
commit 125cb9fa6d
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps/cse.scm
View file

@ -497,10 +497,6 @@ for a label, it isn't known to be constant at that label."
(match term-key (match term-key
(('op arg ...) (('op arg ...)
(match defs (match defs
(#f
;; If the successor is a control-flow join, don't
;; pretend to know the values of its defs.
#f)
((def) (add-def! (list 'op* arg* ...) aux) ...))) ((def) (add-def! (list 'op* arg* ...) aux) ...)))
(_ (add-definitions . clauses)))) (_ (add-definitions . clauses))))
((add-definitions ((add-definitions