[Openmcl-cvs-notifications] r10334 - /trunk/source/lisp-kernel/x86-constants32.h

[rme at clozure.com]

Author: rme
Date: Mon Aug  4 21:23:52 2008
New Revision: 10334

Log:
Add foreign_sp and prev_xframe fields to xcf struct.

Modified:
    trunk/source/lisp-kernel/x86-constants32.h

Modified: trunk/source/lisp-kernel/x86-constants32.h
=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-constants32.h (original)
+++ trunk/source/lisp-kernel/x86-constants32.h Mon Aug  4 21:23:52 2008
@@ -221,6 +221,8 @@
     LispObj containing_uvector;	/* the uvector that contains the relative =
PC or NIL */
     LispObj xp;			/* exception context */
     LispObj ra0;		/* value of ra0 from context */
+    LispObj foreign_sp;		/* foreign sp at the time that exception occurred=
 */
+    LispObj prev_xframe;	/* so %apply-in-frame can unwind it */
 } xcf;
 =

 /* The GC (at least) needs to know what a