[Openmcl-cvs-notifications] r10717 - /trunk/source/lisp-kernel/x86-exceptions.c

[gb at clozure.com]

Author: gb
Date: Fri Sep 12 02:06:10 2008
New Revision: 10717

Log:
Determine fault address for WINDOWS in handle_fault().

Modified:
    trunk/source/lisp-kernel/x86-exceptions.c

Modified: trunk/source/lisp-kernel/x86-exceptions.c
=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/x86-exceptions.c (original)
+++ trunk/source/lisp-kernel/x86-exceptions.c Fri Sep 12 02:06:10 2008
@@ -779,7 +779,7 @@
   BytePtr addr =3D (BytePtr) xp->uc_mcontext.mc_addr;
 #else
 #ifdef WINDOWS
-  BytePtr addr =3D NULL;          /* FIX THIS */
+  BytePtr addr =3D (BytePtr) info->ExceptionInformation[1];
 #else
   BytePtr addr =3D (BytePtr) info->si_addr;
 #endif