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

[gb at clozure.com]

Author: gb
Date: Mon Sep  8 02:53:04 2008
New Revision: 10646

Log:
When allocating non-volatile registers on x8664, don't consider
x8664::save3 to be avialable if it's :rcontext (as it is on win64.)

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 Mon Sep  8 02:53:04 2008
@@ -914,7 +914,9 @@
             (registers (target-arch-case =

 			(:x8632 (error "no nvrs on x8632"))
 			(:x8664
-			 (list x8664::save0 x8664::save1 x8664::save2 x8664::save3))))
+                         (if (=3D (backend-lisp-context-register *target-b=
ackend*) x8664::save3)
+                           (list x8664::save0 x8664::save1 x8664::save2)
+                           (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*))