[Openmcl-cvs-notifications] r14260 - /trunk/source/lisp-kernel/lisp-debug.c

[rme at clozure.com]

Author: rme
Date: Wed Sep 15 15:48:33 2010
New Revision: 14260

Log:
In debug_show_fpu(), check to see if Linux's xp->uc_mcontext.fpregs is
NULL, and just return if so.

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

Modified: trunk/source/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/source/lisp-kernel/lisp-debug.c (original)
+++ trunk/source/lisp-kernel/lisp-debug.c Wed Sep 15 15:48:33 2010
@@ -1033,7 +1033,7 @@
 #endif
 #ifdef X8664
 #ifdef LINUX
-  struct _libc_xmmreg * xmmp =3D &(xp->uc_mcontext.fpregs->_xmm[0]);
+  struct _libc_xmmreg * xmmp =3D NULL;
 #endif
 #ifdef DARWIN
   struct xmm {
@@ -1055,6 +1055,13 @@
 #endif
   float *sp;
 =

+#ifdef LINUX
+  if (xp->uc_mcontext.fpregs)
+    xmmp =3D &(xp->uc_mcontext.fpregs->_xmm[0]);
+  else
+    /* no fp state, apparently */
+    return debug_continue;
+#endif
 =

   for (i =3D 0; i < 16; i++, xmmp++) {
     sp =3D (float *) xmmp;