Changeset 13466

Timestamp:

Feb 26, 2010, 8:00:05 PM (15 years ago)

Author:

Gary Byers

Message:

impurify_from_area(): on x8632, need to update_self_reference of
any functions we just BLTed back to the dynamic area.

File:

• trunk/source/lisp-kernel/x86-gc.c (modified) (2 diffs)

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

@@ -1959 +1959 @@
   }    
 }
+
+void
+update_self_references_in_range(LispObj *start, LispObj *end)
+{
+  LispObj x1;
+  int tag;
+  
+  while (start < end) {
+    x1 = *start;
+    tag = fulltag_of(x1);
+    if (immheader_tag_p(tag)) {
+      start = (LispObj *)ptr_from_lispobj(skip_over_ivector(ptr_to_lispobj(start), x1));
+    } else if (!nodeheader_tag_p(tag)) {
+      start += 2;
+    } else {
+      natural element_count = header_element_count(x1);
+      natural size = (element_count+1+1) &~1;
+
+      if (header_subtag(x1) == subtag_function) {
+        update_self_references(start);
+      }
+      start += size;
+    }
+  }
+}
+
 #endif
 
@@ -3091 +3117 @@
   memmove(oldfree, base, n);
   UnCommitMemory((void *)base, n);
+#ifdef X8632
+  update_self_references_in_range((LispObj *)oldfree,(LispObj *)(oldfree+n));
+#endif
   a->ndnodes = area_dnode(a, a->active);
   src->active = src->low;