Changeset 14282


Ignore:
Timestamp:
Sep 17, 2010, 10:54:26 PM (9 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/nfcomp.lisp

    r14258 r14282  
    17131713      (fasl-out-count n)
    17141714      (dotimes (i n)
    1715         (fasl-dump-form (%svref f i))))))
     1715        (if (= i 0)
     1716          (target-arch-case
     1717           (:arm (fasl-dump-form
     1718                  (ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- target::fixnumshift)))) ; host's fixnumshift
     1719           (t (fasl-dump-form (%svref f i))))
     1720          (fasl-dump-form (%svref f i)))))))
    17161721
    17171722#+x86-target
Note: See TracChangeset for help on using the changeset viewer.