[Openmcl-cvs-notifications] r10087 - /trunk/source/lisp-kernel/gc-common.c

[rme at clozure.com]

Author: rme
Date: Fri Jul 18 14:20:16 2008
New Revision: 10087

Log:
mark_tcr_xframes(): Pollute file with x8632 conditionalization.

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

Modified: trunk/source/lisp-kernel/gc-common.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/gc-common.c (original)
+++ trunk/source/lisp-kernel/gc-common.c Fri Jul 18 14:20:16 2008
@@ -602,13 +602,28 @@
 =

   xp =3D tcr->gc_context;
   if (xp) {
+#ifndef X8632
     mark_xp(xp);
-  }
+#else
+    mark_xp(xp, tcr->node_regs_mask);
+#endif
+  }
+#ifdef X8632
+  mark_root(tcr->save0);
+  mark_root(tcr->save1);
+  mark_root(tcr->save2);
+  mark_root(tcr->save3);
+  mark_root(tcr->next_method_context);
+#endif
   =

   for (xframes =3D (xframe_list *) tcr->xframe; =

        xframes; =

        xframes =3D xframes->prev) {
+#ifndef X8632
       mark_xp(xframes->curr);
+#else
+      mark_xp(xframes->curr, xframes->node_regs_mask);
+#endif
   }
 }
       =