[Openmcl-cvs-notifications] r10462 - /trunk/source/lisp-kernel/thread_manager.c

[gb at clozure.com]

Author: gb
Date: Wed Aug 13 07:44:53 2008
New Revision: 10462

Log:
in shutdown_thread_tcr(), zero the tlb_limit field before deallocating
the tlb pointer.  Any other thread looking at this info -should- hold
lisp_global(TCR_AREA_LOCK) - which protects this code - but better
safe than sorry.

Modified:
    trunk/source/lisp-kernel/thread_manager.c

Modified: trunk/source/lisp-kernel/thread_manager.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/thread_manager.c (original)
+++ trunk/source/lisp-kernel/thread_manager.c Wed Aug 13 07:44:53 2008
@@ -858,9 +858,9 @@
     destroy_semaphore(&tcr->resume);
     destroy_semaphore(&tcr->reset_completion);
     destroy_semaphore(&tcr->activate);
+    tcr->tlb_limit =3D 0;
     free(tcr->tlb_pointer);
     tcr->tlb_pointer =3D NULL;
-    tcr->tlb_limit =3D 0;
     tcr->osid =3D 0;
     tcr->interrupt_pending =3D 0;
     termination_semaphore =3D tcr->termination_semaphore;