[Openmcl-cvs-notifications] r10090 - /trunk/source/lisp-kernel/lisptypes.h

[rme at clozure.com]

Author: rme
Date: Fri Jul 18 15:09:01 2008
New Revision: 10090

Log:
Darwin/x8632 mcontext/ucontext types.

Modified:
    trunk/source/lisp-kernel/lisptypes.h

Modified: trunk/source/lisp-kernel/lisptypes.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/lisptypes.h (original)
+++ trunk/source/lisp-kernel/lisptypes.h Fri Jul 18 15:09:01 2008
@@ -138,6 +138,14 @@
 #define UC_MCONTEXT(UC) UC->uc_mcontext
 #endif /* _STRUCT_MCONTEXT64 */
 #endif /* X86_64 */
+
+#ifdef X8632
+/* Assume rational <i386/ucontext.h> */
+#define UC_MCONTEXT(UC) UC->uc_mcontext
+typedef mcontext_t MCONTEXT_T;
+typedef ucontext_t ExceptionInformation;
+#endif
+
 #endif /* #ifdef DARWIN */
 =

 #ifdef LINUX