Skip to content
Snippets Groups Projects
Commit 8c56be4f authored by ram's avatar ram
Browse files

Use block-environment instead of obsolete block-lambda, use block-start

to test for head/tail block instead of block-lambda.
parent 2f2f4f75
No related branches found
No related tags found
No related merge requests found
...@@ -477,7 +477,7 @@ ...@@ -477,7 +477,7 @@
prev)))) prev))))
(dolist (b (block-succ block)) (dolist (b (block-succ block))
(when (and (block-lambda b) (when (and (block-start b)
(propagate-live-tns last (block-info b))) (propagate-live-tns last (block-info b)))
(setq did-something t))) (setq did-something t)))
...@@ -757,9 +757,8 @@ ...@@ -757,9 +757,8 @@
(do ((conf (tn-global-conflicts y) (global-conflicts-tn-next conf))) (do ((conf (tn-global-conflicts y) (global-conflicts-tn-next conf)))
((null conf) ((null conf)
nil) nil)
(when (eq (lambda-environment (when (eq (block-environment
(block-lambda (ir2-block-block (global-conflicts-block conf)))
(ir2-block-block (global-conflicts-block conf))))
env) env)
(return t))))) (return t)))))
...@@ -770,9 +769,7 @@ ...@@ -770,9 +769,7 @@
;;; ;;;
(defun tns-conflict-environment-local (x y) (defun tns-conflict-environment-local (x y)
(declare (type tn x y)) (declare (type tn x y))
(eq (lambda-environment (eq (block-environment (ir2-block-block (tn-local y)))
(block-lambda
(ir2-block-block (tn-local y))))
(tn-environment x))) (tn-environment x)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment