Changeset 14273

Timestamp:

Sep 17, 2010, 3:45:50 PM (14 years ago)

Author:

Gary Byers

Message:

In forward_memoized_references(), try to keep function's entrypoint
in synch with codevector on ARM.

File:

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

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

@@ -1114 +1114 @@
 {
   bitvector refbits = a->refbits;
-  LispObj *p = (LispObj *) a->low, x1, x2, new;
+  LispObj *p = (LispObj *) a->low, *p0 = p, x1, x2, new;
   natural bits, bitidx, *bitsp, nextbit, diff, memo_dnode = 0, hash_dnode_limit = 0;
   int tag_x1;
@@ -1165 +1165 @@
           if (new != x1) {
             *p = new;
+#ifdef ARM
+            if (p != p0) {
+              if(header_subtag(p[-2]) == subtag_function) {
+                /* Just updated the code vector; fix the entrypoint */
+                if (p[-1] == (untag(x1)+fulltag_odd_fixnum)) {
+                  p[-1] = (untag(new)+fulltag_odd_fixnum);
+                }
+              }
+            }
+#endif
           }
         }