X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-host-2.lisp;h=72ce5982155a9f6860609f33e33448223f745d0e;hb=HEAD;hp=5af5a983810d8903cd5ed0fc3ab2b035dd6c8b5c;hpb=41248d63da1344119f74305c887b0e5db0263ebb;p=sbcl.git

diff --git a/make-host-2.lisp b/make-host-2.lisp
index 5af5a98..72ce598 100644
--- a/make-host-2.lisp
+++ b/make-host-2.lisp
@@ -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)