Changeset 5612

Timestamp:

Dec 14, 2006, 2:16:37 PM (18 years ago)

Author:

Gary Byers

Message:

lazarus() runs with a lock on the TCR_AREA_LOCK.

File:

• trunk/ccl/lisp-kernel/pmcl-kernel.c (modified) (1 diff)

trunk/ccl/lisp-kernel/pmcl-kernel.c

@@ -1333 +1333 @@
   TCR *tcr = get_tcr(false);
   if (tcr) {
+    /* Some threads may be dying; no threads should be created. */
+    LOCK(lisp_global(TCR_AREA_LOCK),tcr);
     tcr->vs_area->active = tcr->vs_area->high - node_size;
     tcr->save_vsp = (LispObj *)(tcr->vs_area->active);