[Openmcl-cvs-notifications] r11803 - /trunk/source/lisp-kernel/x86-exceptions.c

[rme at clozure.com]

Author: rme
Date: Tue Mar  3 19:39:40 2009
New Revision: 11803

Log:
callback_to_lisp(): on x8632, preserve tcr.unboxed0 and tcr.unboxed1.

Modified:
    trunk/source/lisp-kernel/x86-exceptions.c

Modified: trunk/source/lisp-kernel/x86-exceptions.c
=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-exceptions.c (original)
+++ trunk/source/lisp-kernel/x86-exceptions.c Tue Mar  3 19:39:40 2009
@@ -588,6 +588,8 @@
   unsigned old_mxcsr =3D get_mxcsr();
 #ifdef X8632
   natural saved_node_regs_mask =3D tcr->node_regs_mask;
+  natural saved_unboxed0 =3D tcr->unboxed0;
+  natural saved_unboxed1 =3D tcr->unboxed1;
   LispObj *vsp =3D (LispObj *)xpGPR(xp, Isp);
 #endif
 =

@@ -628,6 +630,8 @@
   xpGPR(xp, Isp) =3D (LispObj)vsp;
 =

   tcr->node_regs_mask =3D saved_node_regs_mask;
+  tcr->unboxed0 =3D saved_unboxed0;
+  tcr->unboxed1 =3D saved_unboxed1;
 #endif
   set_mxcsr(old_mxcsr);
   return delta;