Changeset 14296


Ignore:
Timestamp:
Sep 22, 2010, 1:34:29 AM (9 years ago)
Author:
rme
Message:

In fasl-dump-function: ARM package is not normally around in
the PPC lisp, so kludge around that.

File:
1 edited

Legend:

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

    r14282 r14296  
    17151715        (if (= i 0)
    17161716          (target-arch-case
    1717            (:arm (fasl-dump-form
    1718                   (ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- target::fixnumshift)))) ; host's fixnumshift
     1717           (:arm
     1718            (let ((arm-subprimitive-address
     1719                   (find-symbol "ARM-SUBPRIMITIVE-ADDRESS" "ARM")))
     1720              (fasl-dump-form
     1721               (ash (funcall arm-subprimitive-address '.SPfix-nfn-entrypoint)
     1722                    (- target::fixnumshift))))) ; host's fixnumshift
    17191723           (t (fasl-dump-form (%svref f i))))
    17201724          (fasl-dump-form (%svref f i)))))))
Note: See TracChangeset for help on using the changeset viewer.