Skip to content
Snippets Groups Projects
Commit 5a73c199 authored by wlott's avatar wlott
Browse files

Rob fixed something to do with environment TNs not being considered live at

the right time.
parent 75245016
No related branches found
No related tags found
No related merge requests found
...@@ -587,15 +587,10 @@ ...@@ -587,15 +587,10 @@
(when (eq (sb-kind sb) :finite) (when (eq (sb-kind sb) :finite)
(fill (finite-sb-live-tns sb) nil))) (fill (finite-sb-live-tns sb) nil)))
(let ((live (ir2-block-live-in block))) (do-live-tns (tn (ir2-block-live-in block) block)
(do ((conf (ir2-block-global-tns block) (global-conflicts-next conf))) (let ((sb (sc-sb (tn-sc tn))))
((null conf)) (when (eq (sb-kind sb) :finite)
(when (or (eq (global-conflicts-kind conf) :live) (setf (svref (finite-sb-live-tns sb) (tn-offset tn)) tn))))
(/= (sbit live (global-conflicts-number conf)) 0))
(let* ((tn (global-conflicts-tn conf))
(sb (sc-sb (tn-sc tn))))
(when (eq (sb-kind sb) :finite)
(setf (svref (finite-sb-live-tns sb) (tn-offset tn)) tn))))))
(setq *live-block* block) (setq *live-block* block)
(setq *live-vop* (ir2-block-last-vop block)) (setq *live-vop* (ir2-block-last-vop block))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment