Changeset 13083

Timestamp:

Oct 22, 2009, 2:58:04 AM (15 years ago)

Author:

Gary Byers

Message:

When copying functions on x8632, need to call update_self_references().

File:

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

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

@@ -2229 +2229 @@
   int
     header_tag = fulltag_of(header);
+#ifdef X8632
+  Boolean
+    is_function = (header_subtag(header)==subtag_function);
+#endif
 
   if (immheader_tag_p(header_tag)) {
@@ -2244 +2248 @@
 
   memcpy(free, (BytePtr)old, physbytes);
+
+#ifdef X8632
+  if (is_function) {
+    update_self_references((LispObj *)free);
+  }
+#endif
+
+
   /* Leave a trail of breadcrumbs.  Or maybe just one breadcrumb. */
   /* Actually, it's best to always leave a trail, for two reasons.