[Openmcl-cvs-notifications] r10582 - /trunk/source/lisp-kernel/x86-subprims32.s

[gb at clozure.com]

Author: gb
Date: Sun Aug 31 04:36:49 2008
New Revision: 10582

Log:
Add globals to mark start/end of subprims code.

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

Modified: trunk/source/lisp-kernel/x86-subprims32.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-subprims32.s (original)
+++ trunk/source/lisp-kernel/x86-subprims32.s Sun Aug 31 04:36:49 2008
@@ -15,6 +15,7 @@
 =

 =

 _exportfn(toplevel_loop)
+Xsubprims_start:        	=

 	__(push %ebp)
 	__(movl %esp,%ebp)
 	/* Switch to the lisp stack */
@@ -93,5 +94,14 @@
 	__(movl $nil_value, %eax)
 	__(leave)
 	__(ret)
+Xsubprims_end:           =

 _endfn
 =

+        .data
+        .globl C(subprims_start)
+        .globl C(subprims_end)
+C(subprims_start):      .long Xsubprims_start
+C(subprims_end):        .long Xsubprims_end
+        .text
+
+