X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fx86-64-vm.lisp;h=286c2924bdf72b2e97055aa06bae9648d6be84bc;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=a9698dbca3636aef26c7ce26f9bacbef963ad221;hpb=eaa8a506790bb6ed627da617247bfd13802eb365;p=sbcl.git

diff --git a/src/code/x86-64-vm.lisp b/src/code/x86-64-vm.lisp
index a9698db..286c292 100644
--- 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))
+
 
 ;;;; INTERNAL-ERROR-ARGS