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

[gb at clozure.com]

Author: gb
Date: Fri Oct 17 22:13:34 2008
New Revision: 11148

Log:
Set result (in %imm0) when calling kill_tcr via trap.

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 Oct 17 22:13:34 2008
@@ -1084,7 +1084,7 @@
 	return true;
 	=

       case XUUO_KILL:
-        kill_tcr(target);
+        xpGPR(context,Iimm0) =3D (LispObj)kill_tcr(target);
         xpPC(context)+=3D3;
         break;
       default: