diff options
| author | mdejong <mdejong@noemail.net> | 2002-08-01 18:32:53 (GMT) |
|---|---|---|
| committer | mdejong <mdejong@noemail.net> | 2002-08-01 18:32:53 (GMT) |
| commit | 0a4fa5a2dedf87ebd85e66dcdb2da0777c83690c (patch) | |
| tree | e4241aa1f00dda0dd079a09968b6966ba5dc4878 /generic/tclCkalloc.c | |
| parent | b7124ce2f37b1d7b49651f619870b275777b2582 (diff) | |
| download | tcl-0a4fa5a2dedf87ebd85e66dcdb2da0777c83690c.zip tcl-0a4fa5a2dedf87ebd85e66dcdb2da0777c83690c.tar.gz tcl-0a4fa5a2dedf87ebd85e66dcdb2da0777c83690c.tar.bz2 | |
* generic/tclCkalloc.c (TclFinalizeMemorySubsystem):
Don't lock the ckalloc mutex before invoking the
Tcl_DumpActiveMemory function since it also
locks the same mutex. This code is only executed
when "memory onexit filename" has been executed
and Tcl is compiled with -DTCL_MEM_DEBUG.
FossilOrigin-Name: a36efcbf5fac0b9208e0bdf72c63c780a1d5ec02
Diffstat (limited to 'generic/tclCkalloc.c')
| -rw-r--r-- | generic/tclCkalloc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c index 4a6c279..fe90a74 100644 --- a/generic/tclCkalloc.c +++ b/generic/tclCkalloc.c @@ -13,7 +13,7 @@ * * This code contributed by Karl Lehenbauer and Mark Diekhans * - * RCS: @(#) $Id: tclCkalloc.c,v 1.16 2002/07/11 13:53:59 dkf Exp $ + * RCS: @(#) $Id: tclCkalloc.c,v 1.17 2002/08/01 18:32:53 mdejong Exp $ */ #include "tclInt.h" @@ -1232,12 +1232,12 @@ void TclFinalizeMemorySubsystem() { #ifdef TCL_MEM_DEBUG - Tcl_MutexLock(ckallocMutexPtr); if (tclMemDumpFileName != NULL) { Tcl_DumpActiveMemory(tclMemDumpFileName); } else if (onExitMemDumpFileName != NULL) { Tcl_DumpActiveMemory(onExitMemDumpFileName); } + Tcl_MutexLock(ckallocMutexPtr); if (curTagPtr != NULL) { TclpFree((char *) curTagPtr); curTagPtr = NULL; |