Changeset 546

Timestamp:

Feb 15, 2004, 8:25:55 AM (21 years ago)

Author:

Gary Byers

Message:

Foreign threads linger, too.

File:

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

trunk/ccl/lisp-kernel/thread_manager.c

@@ -446 +446 @@
   area *vs, *ts, *cs;
 
-  if (tcr->flags & (1<<TCR_FLAG_BIT_FOREIGN)) {
-    TCR *current_tls = tsd_get(lisp_global(TCR_KEY));
-    LispObj callback_macptr = nrs_FOREIGN_THREAD_CONTROL.vcell,
-      callback_ptr = ((macptr *)(untag(callback_macptr)))->address;
+  
+  if (--(tcr->shutdown_count) == 0) {
+    if (tcr->flags & (1<<TCR_FLAG_BIT_FOREIGN)) {
+      LispObj callback_macptr = nrs_FOREIGN_THREAD_CONTROL.vcell,
+        callback_ptr = ((macptr *)(untag(callback_macptr)))->address;
     
-    tsd_set(lisp_global(TCR_KEY), tcr);
-    ((void (*)())callback_ptr)(1);
-    tsd_set(lisp_global(TCR_KEY),current_tls);
-  }
-  
-  if (--(tcr->shutdown_count) == 0) {
-#ifdef DEBUG_THREAD_CLEANUP
-    fprintf(stderr, "\nprocessing final shutdown request for pthread 0x%x tcr 0x%x", pthread_self(), tcr);
-#endif
+      tsd_set(lisp_global(TCR_KEY), tcr);
+      ((void (*)())callback_ptr)(1);
+    }
 #ifdef DARWIN
     darwin_exception_cleanup(tcr);
@@ -486 +481 @@
   } else {
     tsd_set(lisp_global(TCR_KEY), tcr);
-#ifdef DEBUG_THREAD_CLEANUP
-    fprintf(stderr, "\nprocessing early shutdown request for pthread 0x%x tcr 0x%x, tsd = 0x%x",
-            pthread_self(), tcr, tsd_get(lisp_global(TCR_KEY)));
-#endif
   }
 }
@@ -515 +506 @@
   a = register_cstack((BytePtr)stack_base, stack_size);
   tcr->cs_area = a;
-  tcr->cs_limit = (LispObj)a->softlimit;
+  if (!(tcr->flags & (1<<TCR_FLAG_BIT_FOREIGN))) {
+    tcr->cs_limit = (LispObj)a->softlimit;
+  }
 #ifdef LINUX
   tcr->native_thread_info = current_r2;