Fix make-array transforms.

[sbcl.git] / make-host-2.lisp

diff --git a/make-host-2.lisp b/make-host-2.lisp
index ab16fe5..72ce598 100644 (file)
--- a/make-host-2.lisp
+++ b/make-host-2.lisp
@@ -13,7 +13,7 @@
 
 (defun proclaim-target-optimization ()
   (let ((debug (if (position :sb-show *shebang-features*) 2 1)))
-    (proclaim
+    (sb-xc:proclaim
      `(optimize
        (compilation-speed 1) (debug ,debug)
        ;; CLISP's pretty-printer is fragile and tends to cause stack
@@ -27,7 +27,9 @@
        ;; sbcl-internal optimization declarations:
        ;;
        ;; never insert stepper conditions
-       (sb!c:insert-step-conditions 0)))))
+       (sb!c:insert-step-conditions 0)
+       ;; save FP and PC for alien calls -- or not
+       (sb!c:alien-funcall-saves-fp-and-pc #!+x86 3 #!-x86 0)))))
 (compile 'proclaim-target-optimization)
 
 (defun in-target-cross-compilation-mode (fun)