[Openmcl-cvs-notifications] r13641 - /trunk/source/lisp-kernel/platform-win64.h

[gb at clozure.com]

Author: gb
Date: Sun Apr 18 06:13:55 2010
New Revision: 13641

Log:
use win64 constants/macros in platform-win64

Modified:
    trunk/source/lisp-kernel/platform-win64.h

Modified: trunk/source/lisp-kernel/platform-win64.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-win64.h (original)
+++ trunk/source/lisp-kernel/platform-win64.h Sun Apr 18 06:13:55 2010
@@ -39,16 +39,13 @@
 #define eflags_register(xp) xp->EFlags
 #define xpMXCSRptr(x) (DWORD *)(&(x->MxCsr))
 =

-#ifdef SOLARIS
-#define SIGNUM_FOR_INTN_TRAP SIGSEGV
-#ifdef X8664
-#define IS_MAYBE_INT_TRAP(info,xp) ((xpGPR(xp,REG_TRAPNO)=3D=3D0xd)&&((xpG=
PR(xp,REG_ERR)&7)=3D=3D2))
-#define IS_PAGE_FAULT(info,xp) (xpGPR(xp,REG_TRAPNO)=3D=3D0xe)
-#else
-#define IS_MAYBE_INT_TRAP(info,xp) ((xpGPR(xp,TRAPNO)=3D=3D0xd)&&((xpGPR(x=
p,ERR)&7)=3D=3D2))
-#define IS_PAGE_FAULT(info,xp) (xpGPR(xp,TRAPNO)=3D=3D0xe)
-#endif
-#define SIGRETURN(context) setcontext(context)
-#endif
+
+#define SIGNUM_FOR_INTN_TRAP SIGSEGV /* Also fake */
+#define IS_MAYBE_INT_TRAP(info,xp) \
+  ((info->ExceptionCode =3D=3D EXCEPTION_ACCESS_VIOLATION) &&       \
+   (info->ExceptionInformation[0]=3D=3D0) &&                       \
+   (info->ExceptionInformation[1]=3D=3D(ULONG_PTR)(-1L)))
+#define IS_PAGE_FAULT(info,xp) (1)
+#define SIGRETURN(context)      /* for now */
 =

 #include "os-windows.h"