[Openmcl-cvs-notifications] r10909 - /trunk/source/compiler/X86/X8632/x8632-backend.lisp

[gb at clozure.com]

Author: gb
Date: Sun Sep 28 00:13:56 2008
New Revision: 10909

Log:
If we can use a segment register on win32, it'll be %gs, not %fs.

Modified:
    trunk/source/compiler/X86/X8632/x8632-backend.lisp

Modified: trunk/source/compiler/X86/X8632/x8632-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/X8632/x8632-backend.lisp (original)
+++ trunk/source/compiler/X86/X8632/x8632-backend.lisp Sun Sep 28 00:13:56 =
2008
@@ -102,7 +102,7 @@
                 :target-arch-name :x8632
                 :target-foreign-type-data nil
                 :target-arch x8632::*x8632-target-arch*
-                :lisp-context-register x8632::fs
+                :lisp-context-register x8632::gs
 		:num-arg-regs 2
                 ))
 =