[Openmcl-cvs-notifications] r10262 - /trunk/source/lisp-kernel/pmcl-kernel.c

[rme at clozure.com]

Author: rme
Date: Thu Jul 31 13:26:17 2008
New Revision: 10262

Log:
Move up subprims_base for x8632, too.

Modified:
    trunk/source/lisp-kernel/pmcl-kernel.c

Modified: trunk/source/lisp-kernel/pmcl-kernel.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/pmcl-kernel.c (original)
+++ trunk/source/lisp-kernel/pmcl-kernel.c Thu Jul 31 13:26:17 2008
@@ -1602,7 +1602,7 @@
   set_nil(load_image(image_name));
   lisp_global(TCR_AREA_LOCK) =3D ptr_to_lispobj(tcr_area_lock);
 =

-#ifdef X8664
+#ifdef X86
   lisp_global(SUBPRIMS_BASE) =3D (LispObj)((1<<16)+(5<<10));
 #else
   lisp_global(SUBPRIMS_BASE) =3D (LispObj)(5<<10);