[Openmcl-cvs-notifications] r10954 - /trunk/source/lisp-kernel/x86-spjump32.s

[gb at clozure.com]

Author: gb
Date: Fri Oct  3 13:14:23 2008
New Revision: 10954

Log:
Set the spjump table origin on win32, too.  At end of file, don't
try to make .org go backwards.

Modified:
    trunk/source/lisp-kernel/x86-spjump32.s

Modified: trunk/source/lisp-kernel/x86-spjump32.s
=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/lisp-kernel/x86-spjump32.s (original)
+++ trunk/source/lisp-kernel/x86-spjump32.s Fri Oct  3 13:14:23 2008
@@ -24,6 +24,9 @@
 	_beginfile
         __ifdef([DARWIN])
         .space 0x3000,0
+        __endif
+        __ifdef([WIN_32])
+        .space 0x5000-0x1000,0
         __endif
          .globl C(spjump_start)
 C(spjump_start):
@@ -184,7 +187,7 @@
         _spjump(nmkunwind)
          .globl C(spjump_end)
 C(spjump_end):
-	.org 0x1000
+	.org C(spjump_start)+0x1000
 	=

         _endfile
 		=