Changeset 673

Timestamp:

Mar 19, 2004, 10:39:22 AM (21 years ago)

Author:

Gary Byers

Message:

set foreign thread tcr back to NULL in tsd on exit

File:

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

trunk/ccl/lisp-kernel/thread_manager.c

@@ -487 +487 @@
       tsd_set(lisp_global(TCR_KEY), tcr);
       ((void (*)())ptr_from_lispobj(callback_ptr))(1);
+      tsd_set(lisp_global(TCR_KEY), NULL);
     }
 #ifdef DARWIN