From 0ebaa8ecfbe36286db0b4b380ba145af9695acca Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Tue, 12 Nov 2013 16:55:02 -0500 Subject: [PATCH] Fix a logic bug in TNS-CONFLICT-GLOBAL-GLOBAL That function was never used, so it's not a correctness issue, but it's useful (when correct) to debug register allocation. --- src/compiler/life.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/life.lisp b/src/compiler/life.lisp index 9d28fbd..1e85318 100644 --- a/src/compiler/life.lisp +++ b/src/compiler/life.lisp @@ -1049,7 +1049,7 @@ (setq ,n (ir2-block-number (global-conflicts-block ,c))))) (scan (g l lc) `(do () - ((>= ,g ,l)) + ((>= ,l ,g)) (advance ,l ,lc)))) (loop -- 1.7.10.4