Changeset 15370 for trunk/source/lisp-kernel/arm-exceptions.c

Timestamp:

May 21, 2012, 7:22:51 AM (8 years ago)

Author:

gb

Message:

Define assembly lisp-globals in lisp_globals.s, not in *constants.s
Provide _rnode and support, so that the lisp_globals structure can
have its elements defined in predecremented descending order.
Make managed_static_dnodes/_refbits new globals so that they can
be used on all platforms (even though the managed_static_area is only
used on x86 at the moment.
When disabling the EGC, set lisp_global(OLDSPACE_DNODE_COUNT) to 0
(not effectively to lisp_global(MANAGED_STATIC_DNODES), since the
new write barrier code doesn't overload a single set of refbits.

Hopefully, that's it for these changes.
(We'll see if the code even compiles on other platforms.)

-

File:

• trunk/source/lisp-kernel/arm-exceptions.c (modified) (1 diff)

trunk/source/lisp-kernel/arm-exceptions.c

@@ -509 +509 @@
       if (selector & GC_TRAP_FUNCTION_PURIFY) {
         purify_from_xp(xp, 0L);
-        lisp_global(OLDSPACE_DNODE_COUNT) = area_dnode(managed_static_area->active, managed_static_area->low);
+        lisp_global(OLDSPACE_DNODE_COUNT) = 0;
         gc_from_xp(xp, 0L);
       }