Changeset 14464

Timestamp:

Dec 2, 2010, 2:42:47 PM (14 years ago)

Author:

Gary Byers

Message:

At the end of purify(), set managed_static_area->high to
managed_static_area->active. (Without this, if (PURIFY) is called
interactively, things newly purified to the managed static area
may be erroneously printed as BOGUS-OBJECTs.)

File:

• trunk/source/lisp-kernel/x86-gc.c (modified) (1 diff)

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

@@ -2892 +2892 @@
         update_managed_refs(managed_static_area, low_markable_address, area_dnode(a->active,low_markable_address));
       }
+      managed_static_area->high = managed_static_area->active;
     }
     ProtectMemory(pure_area->low,