[Openmcl-cvs-notifications] r10678 - /trunk/source/compiler/X86/x862.lisp

[gb at clozure.com]

Author: gb
Date: Wed Sep 10 00:06:19 2008
New Revision: 10678

Log:
in x862-allocate-global-registers, terminate when we run out of registers, =
not
when we reach the nth register.



Modified:
    trunk/source/compiler/X86/x862.lisp

Modified: trunk/source/compiler/X86/x862.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/X86/x862.lisp (original)
+++ trunk/source/compiler/X86/x862.lisp Wed Sep 10 00:06:19 2008
@@ -919,7 +919,7 @@
                            (list x8664::save0 x8664::save1 x8664::save2 x8=
664::save3)))))
             (regno (pop registers) (pop registers))
             (constant-alist ()))
-           ((or (null things) (=3D n *x862-target-num-save-regs*))
+           ((or (null things) (null regno))
             (dolist (cell fcells) (%rplacd cell nil))
             (dolist (cell vcells) (%rplacd cell nil))
             (values n constant-alist))