Skip to content
Snippets Groups Projects
Commit 1626be46 authored by Raymond Toy's avatar Raymond Toy
Browse files

On x86/darwin, we want and only need the sse2 mode bits. Darwin

doesn't use x87.
parent 2c4a13af
No related branches found
No related tags found
No related merge requests found
...@@ -87,7 +87,7 @@ ...@@ -87,7 +87,7 @@
(setf (x87-floating-point-modes) x87-modes))) (setf (x87-floating-point-modes) x87-modes)))
) )
#+sse2 #+(and sse2 (not darwin))
(progn (progn
(defun floating-point-modes () (defun floating-point-modes ()
;; Combine the modes from the FPU and SSE2 units. Since the sse ;; Combine the modes from the FPU and SSE2 units. Since the sse
...@@ -119,7 +119,20 @@ ...@@ -119,7 +119,20 @@
(setf (vm::sse2-floating-point-modes) new-mode) (setf (vm::sse2-floating-point-modes) new-mode)
(setf (vm::x87-floating-point-modes) x87-modes)) (setf (vm::x87-floating-point-modes) x87-modes))
new-mode) new-mode)
) )
#(and sse2 darwin)
(progn
(defun floating-point-modes ()
;; Get just the SSE2 mode bits.
(vm::sse2-floating-point-modes))
(defun (setf floating-point-modes) (new-mode)
(declare (type (unsigned-byte 24) new-mode))
;; Set the floating point modes for SSE2.
(setf (vm::sse2-floating-point-modes) new-mode)
new-mode)
)
;;; SET-FLOATING-POINT-MODES -- Public ;;; SET-FLOATING-POINT-MODES -- Public
;;; ;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment