[Openmcl-cvs-notifications] r14770 - /trunk/source/lisp-kernel/arm-gc.c

[gb at clozure.com]

Author: gb
Date: Mon May  2 13:33:04 2011
New Revision: 14770

Log:
Change a comment, to clarify that the LR can point to the "pad" (alignment)
word before the contents of a double-float vector, too.

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

Modified: trunk/source/lisp-kernel/arm-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/arm-gc.c (original)
+++ trunk/source/lisp-kernel/arm-gc.c Mon May  2 13:33:04 2011
@@ -1075,7 +1075,7 @@
 =

   mark_pc_root(ptr_to_lispobj(xpPC(xp)));
   lr_value =3D ptr_to_lispobj(xpLR(xp));
-  if (*((LispObj *)lr_value) =3D=3D 0) { /* pointing into a double-float */
+  if (*((LispObj *)lr_value) =3D=3D 0) { /* pointing into a double-float/d=
ouble-float vector */
     mark_root(untag(lr_value)+fulltag_misc);
   } else {
     mark_pc_root(lr_value);