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

[gb at clozure.com]

Author: gb
Date: Tue Sep 30 20:11:34 2008
New Revision: 10932

Log:
Add an "allocated" field to the x8632 TCR.  Windows doesn't offer
a good way to align allocated memory, so we do it manually (and
use tcr.allocated to keep track of the pointer returned by =

malloc/calloc.)

rcontext_reg is %es on Win32; see WIN32_ES_HACK.

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 Tue Sep 30 20:11:34 2008
@@ -48,7 +48,7 @@
 	=

         ifdef([WINDOWS],[
 undefine([rcontext_reg])        =

-define([rcontext_reg],[gs])
+define([rcontext_reg],[es])
         ])
                 =

 define([rcontext],[%rcontext_reg:$1])
@@ -546,6 +546,7 @@
 	 _word(unboxed1)
 	 _node(next_method_context)
 	 _word(save_eflags)
+         _word(allocated)
         _ends
 =

         _struct(win32_context,0)