$OpenBSD: patch-src_code_x86-64-vm_lisp,v 1.1 2018/03/08 15:17:39 sthen Exp $

Index: src/code/x86-64-vm.lisp
--- src/code/x86-64-vm.lisp.orig
+++ src/code/x86-64-vm.lisp
@@ -72,7 +72,7 @@
        (if (eq kind :relative) :relative))))
   nil) ; non-immobile-space builds never record code fixups
 
-#!+(or darwin linux win32)
+#!+(or darwin linux openbsd win32)
 (define-alien-routine ("os_context_float_register_addr" context-float-register-addr)
   (* unsigned) (context (* os-context-t)) (index int))
 
@@ -81,11 +81,11 @@
 
 (defun context-float-register (context index format)
   (declare (ignorable context index))
-  #!-(or darwin linux win32)
+  #!-(or darwin linux openbsd win32)
   (progn
     (warn "stub CONTEXT-FLOAT-REGISTER")
     (coerce 0 format))
-  #!+(or darwin linux win32)
+  #!+(or darwin linux openbsd win32)
   (let ((sap (alien-sap (context-float-register-addr context index))))
     (ecase format
       (single-float
@@ -101,11 +101,11 @@
 
 (defun %set-context-float-register (context index format value)
   (declare (ignorable context index format))
-  #!-(or linux win32)
+  #!-(or linux openbsd win32)
   (progn
     (warn "stub %SET-CONTEXT-FLOAT-REGISTER")
     value)
-  #!+(or linux win32)
+  #!+(or linux openbsd win32)
   (let ((sap (alien-sap (context-float-register-addr context index))))
     (ecase format
       (single-float
