Changeset 9851 for release

Timestamp:

Jun 30, 2008, 3:07:25 PM (13 years ago)

Author:

gb

Message:

ppc-gc.c, x86-gc.c: Don't purify MACPTRs.
image.c: in prepare_to_write_dynamic_area(), don't skip frozen dnodes

when looking for MACPTRs to kill.

Location:

release/1.2/source/lisp-kernel

Files:

• image.c (modified) (1 diff)
• ppc-gc.c (modified) (1 diff)
• x86-gc.c (modified) (1 diff)

release/1.2/source/lisp-kernel/image.c

@@ -337 +337 @@
   area *a = active_dynamic_area;
   LispObj 
-    *start = (LispObj *)(a->low + (tenured_area->static_dnodes << dnode_shift)),
+    *start = (LispObj *)(a->low),
     *end = (LispObj *) (a->active),
     x1;

release/1.2/source/lisp-kernel/ppc-gc.c

@@ -1795 +1795 @@
       header_tag = fulltag_of(header);
       if (immheader_tag_p(header_tag)) {
-        *ref = purify_object(obj, dest);
+        if (header_subtag(header) != subtag_macptr) {
+          *ref = purify_object(obj, dest);
+        }
       }
     }

release/1.2/source/lisp-kernel/x86-gc.c

@@ -1761 +1761 @@
       header_tag = fulltag_of(header);
       if (immheader_tag_p(header_tag)) {
-        new = purify_object(obj, dest);
-        *ref = new;
-        changed = (new != obj);
+        if (header_subtag(header) != subtag_macptr) {
+          new = purify_object(obj, dest);
+          *ref = new;
+          changed = (new != obj);
+        }
       }
     }