[Openmcl-cvs-notifications] r10172 - /trunk/source/lisp-kernel/x86-gc.c

[gb at clozure.com]

Author: gb
Date: Mon Jul 21 01:06:50 2008
New Revision: 10172

Log:
Always goto Climb at the end of rmark().  (I botched conditionalization
on the ia32 branch a few weeks ago and that got merged into the trunk;
this doesn't affect other branches.)

Modified:
    trunk/source/lisp-kernel/x86-gc.c

Modified: trunk/source/lisp-kernel/x86-gc.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/x86-gc.c (original)
+++ trunk/source/lisp-kernel/x86-gc.c Mon Jul 21 01:06:50 2008
@@ -961,8 +961,8 @@
 #else
     this =3D ((LispObj)boundary) + ((*((int *)boundary)) >> 8);
     ((int *)boundary)[0] &=3D 0xff;
+#endif
     goto Climb;
-#endif
   }
 }
 =