Changeset 14279

Timestamp:

Sep 17, 2010, 3:49:14 PM (14 years ago)

Author:

Gary Byers

Message:

Someone got paid to leave xDisposeThread in the CCL kernel all these
years.

File:

• trunk/source/lisp-kernel/thread_manager.c (modified) (2 diffs)

trunk/source/lisp-kernel/thread_manager.c

@@ -1808 +1808 @@
 }
 
-#ifdef WINDOWS
+
 OSErr
 xDisposeThread(TCR *tcr)
@@ -1814 +1814 @@
   return 0;                     /* I don't think that this is ever called. */
 }
-#else
-OSErr
-xDisposeThread(TCR *tcr)
-{
-  if (tcr != (TCR *)ptr_from_lispobj(lisp_global(INITIAL_TCR))) {
-    if (active_tcr_p(tcr) && (tcr != get_tcr(false))) {
-      pthread_cancel((pthread_t)(tcr->osid));
-      return 0;
-    }
-  }
-  return -50;
-}
-#endif
 
 OSErr