[Openmcl-cvs-notifications] r7921 - /trunk/ccl/lisp-kernel/lisp-debug.c

[gb at clozure.com]

Author: gb
Date: Tue Dec 18 20:42:15 2007
New Revision: 7921

Log:
Learn to read disassembled code; look for _sigtramp context in r8 on
all Darwin versions.

Modified:
    trunk/ccl/lisp-kernel/lisp-debug.c

Modified: trunk/ccl/lisp-kernel/lisp-debug.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/ccl/lisp-kernel/lisp-debug.c (original)
+++ trunk/ccl/lisp-kernel/lisp-debug.c Tue Dec 18 20:42:15 2007
@@ -875,7 +875,7 @@
     extern int os_major_version;
 =

     if (xpPC(xp) =3D=3D (natural)_sigtramp) {
-      xp =3D (ExceptionInformation *) xpGPR(xp,os_major_version < 9 ? REG_=
RSI :REG_RCX);
+      xp =3D (ExceptionInformation *) xpGPR(xp, REG_R8);
       fprintf(stderr, "Exception raised at _sigtramp; using context passed=
 to _sigtramp.  Raw register values (R) may be more interesting then lisp v=
alues or lisp backtrace\n");
     }
   }