[Openmcl-cvs-notifications] r14189 - in /trunk/source/lisp-kernel: platform-darwinarm.h platform-linuxarm.h

[gb at clozure.com]

Author: gb
Date: Sat Aug 14 09:15:30 2010
New Revision: 14189

Log:
Define xpFaultStatus (to access the fault status register copy in
a signal context.)

Modified:
    trunk/source/lisp-kernel/platform-darwinarm.h
    trunk/source/lisp-kernel/platform-linuxarm.h

Modified: trunk/source/lisp-kernel/platform-darwinarm.h
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/platform-darwinarm.h (original)
+++ trunk/source/lisp-kernel/platform-darwinarm.h Sat Aug 14 09:15:30 2010
@@ -43,8 +43,8 @@
 #define xpLR(x) (*((pc*)(&(xpGPR(x,14)))))
 #define xpPSR(x) xpGPR(x,16)
 #define xpFaultAddress(x) ((x)->uc_mcontext->__es.__far)
-#define xpTRAP(x) xpGPR(x,-3)
-#define xpERROR(x) xpGPR(x,-2)
+#define xpFaultStatus(x)  ((x)->uc_mcontext->__es.__fsr)
+
 =

 #define DarwinSigReturn(context)
 #define SIGRETURN(context)

Modified: trunk/source/lisp-kernel/platform-linuxarm.h
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/platform-linuxarm.h (original)
+++ trunk/source/lisp-kernel/platform-linuxarm.h Sat Aug 14 09:15:30 2010
@@ -40,6 +40,7 @@
 #define xpFaultAddress(x) xpGPR(x,17)
 #define xpTRAP(x) xpGPR(x,-3)
 #define xpERROR(x) xpGPR(x,-2)
+#define xpFaultStatus(x) xpERROR(x)
 =

 #define DarwinSigReturn(context)
 #define SIGRETURN(context)