Changeset 11468

Timestamp:

Dec 8, 2008, 3:01:05 AM (12 years ago)

Author:

gb

Message:

In relocate_area_contents: need to skip over function code on x8632
as well as x8664; need to skip one extra word(object header).
On x8632, call update_self_references() when relocating a function too;
this seems to close ticket:331.

File:

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

trunk/source/lisp-kernel/image.c

@@ -59 +59 @@
       start = (LispObj *)skip_over_ivector((natural)start, w0);
     } else {
+#ifdef X86
+      if (header_subtag(w0) == subtag_function) {
 #ifdef X8664
-      if (header_subtag(w0) == subtag_function) {
-        int skip = (int) start[1];
+        int skip = ((int) start[1])+1;
+#else
+        int skip = ((unsigned short)start[1])+1;
+        extern void update_self_references(LispObj *);
+        update_self_references(start);
+#endif
      
         start += skip;