[Openmcl-cvs-notifications] r11144 - /trunk/source/lisp-kernel/thread_manager.c

[gb at clozure.com]

Author: gb
Date: Fri Oct 17 21:45:38 2008
New Revision: 11144

Log:
TerminateThread() needs another arg.

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

Modified: trunk/source/lisp-kernel/thread_manager.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/thread_manager.c (original)
+++ trunk/source/lisp-kernel/thread_manager.c Fri Oct 17 21:45:38 2008
@@ -1907,7 +1907,7 @@
          forcing the thread to run quit_handler().  For now,
          mark the TCR as dead and kill thw Windows thread. */
       tcr->osid =3D 0;
-      if (!TerminateThread(osid)) {
+      if (!TerminateThread(osid, 0)) {
         result =3D false;
       }
 #else