Changeset 871

Timestamp:

Sep 13, 2004, 7:26:59 AM (16 years ago)

Author:

gb

Message:

wait_on_semaphore: return KERN_OPERATION_TIMED_OUT if wait was aborted
and we'd timed out anyway.
suspend_tcr: use mach_suspend_tcr() preferentially on Darwin.

File:

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

trunk/ccl/lisp-kernel/thread_manager.c

@@ -184 +184 @@
 
       if ((seconds <= 0) && (nanos <= 0)) {
-        return 0;
+        return KERN_OPERATION_TIMED_OUT;
       }
 
@@ -792 +792 @@
   int suspend_count = atomic_incf(&(tcr->suspend_count));
   if (suspend_count == 1) {
+#ifdef DARWIN
+      if (mach_suspend_tcr(tcr)) {
+        tcr->flags |= TCR_FLAG_BIT_ALT_SUSPEND;
+        return true;
+      }
+#endif
     if (pthread_kill((pthread_t)ptr_from_lispobj(tcr->osid), thread_suspend_signal) == 0) {
       SEM_WAIT(tcr->suspend);