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

[gb at clozure.com]

Author: gb
Date: Thu Dec 11 17:19:14 2008
New Revision: 11508

Log:
Gak.  Explicitly return true after handling XUUO_KILL case in
handle_exception(), rather than getting lost and (apparently) returning
a random value.  (On Solaris, the random value often looks enough
like 'false' to make it appear that the exception isn't handled; this
rarely seemed to happen on other platforms.)

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 Thu Dec 11 17:19:14 2008
@@ -1086,7 +1086,8 @@
       case XUUO_KILL:
         xpGPR(context,Iimm0) =3D (LispObj)kill_tcr(target);
         xpPC(context)+=3D3;
-        break;
+        return true;
+
       default:
 	return false;
       }