Changeset 454

Timestamp:

Feb 1, 2004, 10:09:49 AM (21 years ago)

Author:

Gary Byers

Message:

Experimental change, to defer tcr cleanup.

Location:

trunk/ccl/lisp-kernel

Files:

• constants.h (modified) (1 diff)
• thread_manager.c (modified) (1 diff)

trunk/ccl/lisp-kernel/constants.h

@@ -503 +503 @@
 #define TCR_FLAG_BIT_FOREIGN fixnumshift
 #define TCR_FLAG_BIT_AWAITING_PRESET (fixnumshift+1)
+#define TCR_FLAG_BIT_SHUTDOWN_REQUEST (fixnumshift+2)
 
 #define TCR_STATE_FOREIGN (1)

trunk/ccl/lisp-kernel/thread_manager.c

@@ -456 +456 @@
   }
   
+  if (tcr->flags & (1<<TCR_FLAG_BIT_SHUTDOWN_REQUEST)) {
+    tcr->flags &= ~(1<<TCR_FLAG_BIT_SHUTDOWN_REQUEST);
+
 #ifdef DARWIN
-  darwin_exception_cleanup(tcr);
-#endif
-  
-  vs = tcr->vs_area;
-  tcr->vs_area = NULL;
-  ts = tcr->ts_area;
-  tcr->ts_area = NULL;
-  cs = tcr->cs_area;
-  tcr->cs_area = NULL;
-  if (vs) {
-    condemn_area(vs);
-  }
-  if (ts) {
-    condemn_area(ts);
-  }
-  if (cs) {
-    condemn_area(cs);
-  }
-  destroy_semaphore(&tcr->suspend);
-  destroy_semaphore(&tcr->resume);
-  destroy_semaphore(&tcr->reset_completion);
-  destroy_semaphore(&tcr->activate);
-  tcr->osid = 0;
+    darwin_exception_cleanup(tcr);
+#endif
+  
+    vs = tcr->vs_area;
+    tcr->vs_area = NULL;
+    ts = tcr->ts_area;
+    tcr->ts_area = NULL;
+    cs = tcr->cs_area;
+    tcr->cs_area = NULL;
+    if (vs) {
+      condemn_area(vs);
+    }
+    if (ts) {
+      condemn_area(ts);
+    }
+    if (cs) {
+      condemn_area(cs);
+    }
+    destroy_semaphore(&tcr->suspend);
+    destroy_semaphore(&tcr->resume);
+    destroy_semaphore(&tcr->reset_completion);
+    destroy_semaphore(&tcr->activate);
+    tcr->osid = 0;
+  } else {
+    tcr->flags |= (1<<TCR_FLAG_BIT_SHUTDOWN_REQUEST);
+    tsd_set(lisp_global(TCR_KEY), tcr);
+  }
 }