Changeset 14597

Timestamp:

Jan 24, 2011, 12:58:14 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• trunk/source/lisp-kernel/x86-spentry32.s (modified) (6 diffs)

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

@@ -1055 +1055 @@
         /* preserve state of direction flag */
         __(pushfl)
-        __(popl rcontext(tcr.save_eflags))
+        __(popl rcontext(tcr.unboxed0))
         __(cld)
         __(emms)
@@ -1079 +1079 @@
         __(clr %fn)
         __(pxor %fpzero,%fpzero)
-        __(pushl rcontext(tcr.save_eflags))
+        __(pushl rcontext(tcr.unboxed0))
         __(popfl)
         __(movl rcontext(tcr.save_vsp),%esp)
@@ -1111 +1111 @@
         /* preserve state of direction flag */
         __(pushfl)
-        __(popl rcontext(tcr.save_eflags))
+        __(popl rcontext(tcr.unboxed0))
         __(cld)
         __(emms)
@@ -1139 +1139 @@
         __(clr %fn)
         __(pxor %fpzero,%fpzero)
-        __(pushl rcontext(tcr.save_eflags))
+        __(pushl rcontext(tcr.unboxed0))
         __(popf)
         __(movl rcontext(tcr.save_vsp),%esp)
@@ -4182 +4182 @@
         /* preserve state of direction flag */
         __(pushfl)
-        __(popl rcontext(tcr.save_eflags))
+        __(popl rcontext(tcr.unboxed0))
         __(cld)        
         __(stmxcsr rcontext(tcr.lisp_mxcsr))
@@ -4226 +4226 @@
         __(fnclex)
         __endif
-1:      __(pushl rcontext(tcr.save_eflags))
+1:      __(pushl rcontext(tcr.unboxed0))
         __(popfl)
         __(movl rcontext(tcr.save_vsp),%esp)