From: Paul Khuong <pvk@pvk.ca>
Date: Tue, 12 Nov 2013 21:55:02 +0000 (-0500)
Subject: Fix a logic bug in TNS-CONFLICT-GLOBAL-GLOBAL
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0ebaa8ecfbe36286db0b4b380ba145af9695acca;p=sbcl.git

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.
---

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