0.9.2.40:

[sbcl.git] / src / code / x86-64-vm.lisp

diff --git a/src/code/x86-64-vm.lisp b/src/code/x86-64-vm.lisp
index a9698db..286c292 100644 (file)
--- a/src/code/x86-64-vm.lisp
+++ b/src/code/x86-64-vm.lisp
@@ -271,6 +271,14 @@
     (sb!alien:unsigned 32)
   (context (* os-context-t)))
 
+(define-alien-routine
+    ("arch_get_fp_modes" floating-point-modes) (sb!alien:unsigned 32))
+
+(define-alien-routine
+    ("arch_set_fp_modes" %floating-point-modes-setter) void (fp (sb!alien:unsigned 32)))
+
+(defun (setf floating-point-modes) (val) (%floating-point-modes-setter val))
+
 \f
 ;;;; INTERNAL-ERROR-ARGS