[Openmcl-cvs-notifications] r12600 - /trunk/source/compiler/X86/X8664/x8664-backend.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug 17 02:30:33 2009
New Revision: 12600

Log:
*darwinx8664-backend* uses %r11/%save3 for TCR.
Sigh.

Modified:
    trunk/source/compiler/X86/X8664/x8664-backend.lisp

Modified: trunk/source/compiler/X86/X8664/x8664-backend.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/X8664/x8664-backend.lisp (original)
+++ trunk/source/compiler/X86/X8664/x8664-backend.lisp Mon Aug 17 02:30:33 =
2009
@@ -87,7 +87,8 @@
 		:target-foreign-type-data nil
                 :target-arch x8664::*x8664-target-arch*
                 ;; Overload %gs until Apple straightens things out.
-                :lisp-context-register x8664::gs
+                ;; Whoops; they never did.
+                :lisp-context-register x8664::r11
                 ))
 =

 #+freebsdx86-target