Changeset 5912

Timestamp:

Feb 13, 2007, 5:08:41 PM (18 years ago)

Author:

Gary Byers

Message:

Set the mxcsr/fpctrl fields of jmp-buf to safe/sane values.

File:

• trunk/ccl/examples/objc-runtime.lisp (modified) (1 diff)

trunk/ccl/examples/objc-runtime.lisp

@@ -549 +549 @@
   (setf (%get-ptr jmp-buf JB-rbx) throw-to-catch-frame
         (%get-ptr jmp-buf JB-rip) *setjmp-catch-rip-code*)
+  (setf (%get-unsigned-long jmp-buf JB-mxcsr) #x1f80
+        (%get-unsigned-long jmp-buf JB-fpcontrol) #x37f)
   (%set-object jmp-buf JB-RSP c-frame)
   (%set-object jmp-buf JB-RBP c-frame)