Changeset 4942

Timestamp:

Aug 8, 2006, 12:07:19 PM (18 years ago)

Author:

Gary Byers

Message:

xp accessors for Darwinx8664.

File:

• trunk/ccl/lisp-kernel/x86-exceptions.h (modified) (1 diff)

trunk/ccl/lisp-kernel/x86-exceptions.h

@@ -24 +24 @@
 #define xpPC(x) (xpGPR(x,Iip))
 #define xpMMXreg(x,n)  *((natural *)(&((x)->uc_mcontext.fpregs->_st[n])))
+#endif
+#endif
+
+#ifdef DARWIN
+#ifdef X8664
+#define xpGPRvector(x) ((natural *)(&(UC_MCONTEXT(x)->ss.rax)))
+#define xpGPR(x,gprno) (xpGPRvector(x)[gprno])
+#define set_xpGPR(x,gpr,new) xpGPR((x),(gpr)) = (natural)(new)
+#define xpPC(x) (xpGPR(x,Iip))
+#define xpFPRvector(x) ((natural *)(&(UC_MCONTEXT(x)->fs.fp_stmm0)))
+#define xpMMXreg(x,n)  (xpFPRvector(x)[gprno])
 #endif
 #endif