Changeset 13397

Timestamp:

Jan 19, 2010, 11:06:30 AM (15 years ago)

Author:

R. Matthew Emerson

Message:

Darwin/x8632 tweaks (related to ucontext/mcontext structure and field
names) to work with Leopard interfaces.

File:

• trunk/source/level-1/x86-trap-support.lisp (modified) (1 diff)

trunk/source/level-1/x86-trap-support.lisp

@@ -188 +188 @@
   (defconstant gp-regs-offset 0)
   (defmacro xp-gp-regs (xp)
-    `(pref (pref ,xp :ucontext.uc_mcontext) :mcontext.ss))
-  (defun xp-mxcsr (xp)
-    (%get-unsigned-long (pref (pref xp :ucontext.uc_mcontext) :mcontext.fs) 32))
+    `(pref ,xp :ucontext_t.uc_mcontext.__ss))
+  (defun xp-mxcsr (xp)
+    (pref xp :ucontext_t.uc_mcontext.__fs.__fpu_mxcsr))
   (defconstant flags-register-offset 9)
   (defconstant eip-register-offset 10)