X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fx86-64-bsd-os.c;h=8c545036f3211f2b977fa932a4812f1e0db200f1;hb=dd04bd449535e9016b5652a708a3cac2ca24c87d;hp=93dec52e46a35da39a81e205a1ef33a9dcdf0eb5;hpb=9184392783512f76eb971b7e316c875e2a1eb94c;p=sbcl.git diff --git a/src/runtime/x86-64-bsd-os.c b/src/runtime/x86-64-bsd-os.c index 93dec52..8c54503 100644 --- a/src/runtime/x86-64-bsd-os.c +++ b/src/runtime/x86-64-bsd-os.c @@ -8,6 +8,10 @@ #include #endif +#if defined(LISP_FEATURE_OPENBSD) +#include +#endif + #ifdef LISP_FEATURE_MACH_EXCEPTION_HANDLER #include @@ -182,3 +186,16 @@ os_restore_fp_control(os_context_t *context) asm ("fldcw %0" : : "m" (ex->en_cw)); } #endif + +#if defined(LISP_FEATURE_OPENBSD) +void +os_restore_fp_control(os_context_t *context) +{ + if (context->sc_fpstate != NULL) { + u_int32_t mxcsr = context->sc_fpstate->fx_mxcsr & ~0x3F; + u_int16_t cw = context->sc_fpstate->fx_fcw; + asm ("ldmxcsr %0" : : "m" (mxcsr)); + asm ("fldcw %0" : : "m" (cw)); + } +} +#endif