Changeset 826

Timestamp:

Jun 5, 2004, 11:00:37 PM (20 years ago)

Author:

Gary Byers

Message:

New post-gc freeing mechanism (suspened thread may own malloc lock.)
Similar mechanism for TCR cleanup.

File:

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

trunk/ccl/lisp-kernel/thread_manager.c

@@ -115 +115 @@
 {
   destroy_semaphore((void **)&m->signal);
-  free(m->malloced_ptr);
+  postGCfree((void *)(m->malloced_ptr));
 }
 
@@ -862 +862 @@
 #endif
 
+TCR *freed_tcrs = NULL;
+
+void
+enqueue_freed_tcr (TCR *tcr)
+{
+  tcr->next = freed_tcrs;
+  freed_tcrs = tcr;
+}
+
+void
+free_freed_tcrs ()
+{
+  TCR *current, *next;
+
+  for (current = freed_tcrs; current; current = next) {
+    next = current->next;
+    free(current);
+  }
+  freed_tcrs = NULL;
+}
+
 void
 suspend_other_threads()
@@ -886 +907 @@
       if ((other->osid == 0))  {
         dequeue_tcr(other);
-        free(other);
+        enqueue_freed_tcr(other);
       }
     }
@@ -899 +920 @@
     resume_tcr(other);
   }
+  free_freed_tcrs();
   UNLOCK(lisp_global(AREA_LOCK), current);
   UNLOCK(lisp_global(TCR_LOCK), current);