diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-08-24 01:29:46 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-08-24 01:29:46 (GMT) |
| commit | d4474d5baddde165c995c7716e6e0604788366a8 (patch) | |
| tree | 6840679cb94abeac12161a8b42cf3a950a24df27 /generic/tclObj.c | |
| parent | c5d82383792e0299e86439c844793d9d726af8d4 (diff) | |
| download | tcl-d4474d5baddde165c995c7716e6e0604788366a8.zip tcl-d4474d5baddde165c995c7716e6e0604788366a8.tar.gz tcl-d4474d5baddde165c995c7716e6e0604788366a8.tar.bz2 | |
2002-08-23 Miguel Sofer <msofer@users.sourceforge.net>
* generic/tclObj.c (USE_THREAD_ALLOC): fixed leak [Bug 597936].
Thanks to Zoran Vasiljevic.
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 2eb61fd..2e4dc5e 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclObj.c,v 1.39 2002/08/14 17:31:43 msofer Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.40 2002/08/24 01:29:46 msofer Exp $ */ #include "tclInt.h" @@ -684,18 +684,22 @@ TclFreeObj(objPtr) * Tcl_Obj structs we maintain. */ - Tcl_MutexLock(&tclObjMutex); #if defined(TCL_MEM_DEBUG) || defined(PURIFY) + Tcl_MutexLock(&tclObjMutex); ckfree((char *) objPtr); -#else + Tcl_MutexUnlock(&tclObjMutex); +#elif defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) + TclThreadFreeObj(objPtr); +#else + Tcl_MutexLock(&tclObjMutex); objPtr->internalRep.otherValuePtr = (VOID *) tclFreeObjList; tclFreeObjList = objPtr; + Tcl_MutexUnlock(&tclObjMutex); #endif /* TCL_MEM_DEBUG */ #ifdef TCL_COMPILE_STATS tclObjsFreed++; #endif /* TCL_COMPILE_STATS */ - Tcl_MutexUnlock(&tclObjMutex); } /* |