[Openmcl-cvs-notifications] r14597 - /trunk/source/lisp-kernel/x86-spentry32.s

[rme at clozure.com]

Author: rme
Date: Mon Jan 24 14:58:14 2011
New Revision: 14597

Log:
In subprims that call foreign code, save the flags in tcr.unboxed0
instead of using the dedicated slot tcr.save_eflags.

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

Modified: trunk/source/lisp-kernel/x86-spentry32.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-spentry32.s (original)
+++ trunk/source/lisp-kernel/x86-spentry32.s Mon Jan 24 14:58:14 2011
@@ -1054,7 +1054,7 @@
 	__(movl rcontext(tcr.foreign_sp),%esp)
 	/* preserve state of direction flag */
 	__(pushfl)
-	__(popl rcontext(tcr.save_eflags))
+	__(popl rcontext(tcr.unboxed0))
 	__(cld)
 	__(emms)
 	__(pop %ebp)		/* backlink */
@@ -1078,7 +1078,7 @@
 	__(clr %temp0)
 	__(clr %fn)
 	__(pxor %fpzero,%fpzero)
-	__(pushl rcontext(tcr.save_eflags))
+	__(pushl rcontext(tcr.unboxed0))
 	__(popfl)
 	__(movl rcontext(tcr.save_vsp),%esp)
 	__(movl rcontext(tcr.save_ebp),%ebp)
@@ -1110,7 +1110,7 @@
 	__(movl rcontext(tcr.foreign_sp),%esp)
 	/* preserve state of direction flag */
 	__(pushfl)
-	__(popl rcontext(tcr.save_eflags))
+	__(popl rcontext(tcr.unboxed0))
 	__(cld)
 	__(emms)
 	__(pop %ebp)		/* backlink */
@@ -1138,7 +1138,7 @@
 	__(clr %temp0)
 	__(clr %fn)
 	__(pxor %fpzero,%fpzero)
-	__(pushl rcontext(tcr.save_eflags))
+	__(pushl rcontext(tcr.unboxed0))
 	__(popf)
 	__(movl rcontext(tcr.save_vsp),%esp)
 	__(movl rcontext(tcr.save_ebp),%ebp)
@@ -4181,7 +4181,7 @@
 	__(movl rcontext(tcr.foreign_sp),%esp)
 	/* preserve state of direction flag */
 	__(pushfl)
-	__(popl rcontext(tcr.save_eflags))
+	__(popl rcontext(tcr.unboxed0))
 	__(cld)        =

 	__(stmxcsr rcontext(tcr.lisp_mxcsr))
 	__(emms)
@@ -4225,7 +4225,7 @@
 	__(fnstsw rcontext(tcr.ffi_exception))
 	__(fnclex)
 	__endif
-1:	__(pushl rcontext(tcr.save_eflags))
+1:	__(pushl rcontext(tcr.unboxed0))
 	__(popfl)
 	__(movl rcontext(tcr.save_vsp),%esp)
 	__(movl rcontext(tcr.save_ebp),%ebp)