Changeset 14282

Timestamp:

Sep 17, 2010, 3:54:26 PM (14 years ago)

Author:

Gary Byers

Message:

When writing an ARM function, write the first element as the magic
"fixup" subprim address, not the entrypoint address in the running
image.

File:

• trunk/source/lib/nfcomp.lisp (modified) (1 diff)

trunk/source/lib/nfcomp.lisp

@@ -1713 +1713 @@
       (fasl-out-count n)
       (dotimes (i n)
-        (fasl-dump-form (%svref f i))))))
+        (if (= i 0)
+          (target-arch-case
+           (:arm (fasl-dump-form
+                  (ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- target::fixnumshift)))) ; host's fixnumshift
+           (t (fasl-dump-form (%svref f i))))
+          (fasl-dump-form (%svref f i)))))))
 
 #+x86-target