Changeset 13082

Timestamp:

Oct 22, 2009, 2:57:13 AM (15 years ago)

Author:

Gary Byers

Message:

When unwatching, need to rebuild the refbits for the managed static area
since we're (re)introducing a static->dynamic reference.

File:

• branches/purify/source/lisp-kernel/x86-exceptions.c (modified) (1 diff)

branches/purify/source/lisp-kernel/x86-exceptions.c

@@ -3758 +3758 @@
     /* because wp_update_references doesn't update refbits */
     tenure_to_area(tenured_area);
+    /* Unwatching can (re-)introduce managed_static->dynamic references */
+    zero_bits(managed_static_area->refbits,managed_static_area->ndnodes);
+    update_managed_refs(managed_static_area, low_markable_address, area_dnode(active_dynamic_area->active, low_markable_address));
     check_all_areas(tcr);
     xpGPR(xp, Iarg_z) = new;