[Openmcl-cvs-notifications] r14144 - /trunk/source/lisp-kernel/constants.h

[gb at clozure.com]

Author: gb
Date: Thu Aug  5 09:30:09 2010
New Revision: 14144

Log:
Reinstate foreign_fpe tcr flag bit.

Modified:
    trunk/source/lisp-kernel/constants.h

Modified: trunk/source/lisp-kernel/constants.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/constants.h (original)
+++ trunk/source/lisp-kernel/constants.h Thu Aug  5 09:30:09 2010
@@ -23,6 +23,7 @@
 #define TCR_FLAG_BIT_PENDING_EXCEPTION (fixnumshift+5)
 #define TCR_FLAG_BIT_FOREIGN_EXCEPTION (fixnumshift+6)
 #define TCR_FLAG_BIT_PENDING_SUSPEND (fixnumshift+7)
+#define TCR_FLAG_BIT_FOREIGN_FPE (fixnumshift+8)
 =

 #define TCR_STATE_FOREIGN (1)
 #define TCR_STATE_LISP    (0)