Changeset 14296

Timestamp:

Sep 21, 2010, 6:34:29 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

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

trunk/source/lib/nfcomp.lisp

@@ -1715 +1715 @@
         (if (= i 0)
           (target-arch-case
-           (:arm (fasl-dump-form
-                  (ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- target::fixnumshift)))) ; host's fixnumshift
+           (:arm
+            (let ((arm-subprimitive-address
+                   (find-symbol "ARM-SUBPRIMITIVE-ADDRESS" "ARM")))
+              (fasl-dump-form
+               (ash (funcall arm-subprimitive-address '.SPfix-nfn-entrypoint)
+                    (- target::fixnumshift))))) ; host's fixnumshift
            (t (fasl-dump-form (%svref f i))))
           (fasl-dump-form (%svref f i)))))))