[Openmcl-cvs-notifications] r10250 - /trunk/source/lisp-kernel/x86-constants32.s

[rme at clozure.com]

Author: rme
Date: Wed Jul 30 14:29:06 2008
New Revision: 10250

Log:
Update nil_value, t_value, lisp_globals_limit, nrs.

Add save_eflags slot to TCR.

Add TCR_FLAG_BIT_PENDING_SUSPEND.

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

Modified: trunk/source/lisp-kernel/x86-constants32.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-constants32.s (original)
+++ trunk/source/lisp-kernel/x86-constants32.s Wed Jul 30 14:29:06 2008
@@ -195,8 +195,8 @@
 misc_data_offset =3D misc_header_offset+node_size
 misc_dfloat_offset =3D misc_header_offset+8
 =

-nil_value =3D (0x3000 + fulltag_cons)
-t_value =3D (0x3008 + fulltag_misc)
+nil_value =3D (0x13000 + fulltag_cons)
+t_value =3D (0x13008 + fulltag_misc)
 t_offset =3D (t_value-nil_value)
 misc_bias =3D fulltag_misc
 cons_bias =3D fulltag_cons
@@ -295,7 +295,7 @@
 =

 symbol_extra =3D symbol.size-fulltag_misc
 =

-	_struct(nrs,0x3008)
+	_struct(nrs,0x13008)
 	 _struct_pad(fulltag_misc)
 	 _struct_label(tsym)
 	 _struct_pad(symbol_extra)	/* t */
@@ -532,6 +532,7 @@
 	 _word(unboxed0)
 	 _word(unboxed1)
 	 _node(next_method_context)
+	 _word(save_eflags)
         _ends
 =

 TCR_FLAG_BIT_FOREIGN =3D fixnum_shift
@@ -541,12 +542,13 @@
 TCR_FLAG_BIT_SUSPEND_ACK_PENDING =3D (fixnumshift+4)
 TCR_FLAG_BIT_PENDING_EXCEPTION =3D (fixnumshift+5)
 TCR_FLAG_BIT_FOREIGN_EXCEPTION =3D (fixnumshift+6)
+TCR_FLAG_BIT_PENDING_SUSPEND =3D (fixnumshift+7)
 =

 target_most_positive_fixnum =3D 536870911
 target_most_negative_fixnum =3D -536870912
 call_arguments_limit =3D 8192
 =

-lisp_globals_limit =3D 0x3000
+lisp_globals_limit =3D 0x13000
         =

 INTERRUPT_LEVEL_BINDING_INDEX =3D fixnumone
 =