* do-spill now removes spilled vars from neighbors of conflicting

vars.
This commit is contained in:
Abdulaziz Ghuloum 2007-06-06 09:24:32 +03:00
parent 0db57fbb69
commit ae0b25ae9f
2 changed files with 2 additions and 0 deletions

Binary file not shown.

View File

@ -2031,6 +2031,8 @@
[else [else
(for-each-var (var-var-conf x) varvec (for-each-var (var-var-conf x) varvec
(lambda (y) (lambda (y)
(set-var-var-conf! y
(rem-var x (var-var-conf y)))
(set-var-frm-conf! y (set-var-frm-conf! y
(add-frm fv (var-frm-conf y))))) (add-frm fv (var-frm-conf y)))))
(set-var-loc! x fv) (set-var-loc! x fv)