projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Complete SSE instruction definitions for x86-64
[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)))
(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
`(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
;; 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)
(compile 'proclaim-target-optimization)
(defun in-target-cross-compilation-mode (fun)