Update Win64 support

[factor.git] / vm / os-windows-nt.cpp

diff --git a/vm/os-windows-nt.cpp b/vm/os-windows-nt.cpp
index 2fceb130f4e8eb29be189ff8d6515c5fe3be3d5f..cf5878e5bfb27eca79ebc97186259606610b6dbc 100755 (executable)
--- a/vm/os-windows-nt.cpp
+++ b/vm/os-windows-nt.cpp
@@ -91,8 +91,12 @@ LONG factor_vm::exception_handler(PEXCEPTION_POINTERS pe)
        case STATUS_FLOAT_UNDERFLOW:
        case STATUS_FLOAT_MULTIPLE_FAULTS:
        case STATUS_FLOAT_MULTIPLE_TRAPS:
+#ifdef FACTOR_AMD64
+               signal_fpu_status = fpu_status(MXCSR(c));
+#else
                signal_fpu_status = fpu_status(X87SW(c) | MXCSR(c));
                X87SW(c) = 0;
+#endif
                MXCSR(c) &= 0xffffffc0;
                c->EIP = (cell)factor::fp_signal_handler_impl;
                break;