Changeset 14319

Timestamp:

Oct 2, 2010, 1:52:03 AM (14 years ago)

Author:

Gary Byers

Message:

relocate_area_contents(): need to relocate ARM entrypoints.

File:

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

trunk/source/lisp-kernel/image.c

@@ -77 +77 @@
           --start;
         }
+        w0 = *start;
+        fulltag = fulltag_of(w0);
+      }
+#endif
+#ifdef ARM
+      if (header_subtag(w0) == subtag_function) {
+        w1 = start[1];
+        if ((w1 >= low) && (w1 < high)) {
+          start[1]=(w1+bias);
+        }
+        start+=2;
         w0 = *start;
         fulltag = fulltag_of(w0);