diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2011-08-04 14:13:33 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2011-08-04 14:13:33 (GMT) |
| commit | fc9c132467cb180fa31f4e3708d30f8a4f37d812 (patch) | |
| tree | 3631427f35da8f0fa86dd03ea08eec56a20a20ed /generic/tclAssembly.c | |
| parent | 80e8d3ca57369bdeeca3325a1d7b09e75dfe03ba (diff) | |
| download | tcl-fc9c132467cb180fa31f4e3708d30f8a4f37d812.zip tcl-fc9c132467cb180fa31f4e3708d30f8a4f37d812.tar.gz tcl-fc9c132467cb180fa31f4e3708d30f8a4f37d812.tar.bz2 | |
More memleak plugging.
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index e12d0f8..7868882 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -1173,24 +1173,10 @@ FreeAssemblyEnv( } /* - * Free the label hash. - */ - - while (1) { - Tcl_HashEntry* hashEntry; - Tcl_HashSearch hashSearch; - - hashEntry = Tcl_FirstHashEntry(&assemEnvPtr->labelHash, &hashSearch); - if (hashEntry == NULL) { - break; - } - Tcl_DeleteHashEntry(hashEntry); - } - - /* * Dispose what's left. */ + Tcl_DeleteHashTable(&assemEnvPtr->labelHash); TclStackFree(interp, assemEnvPtr->parsePtr); TclStackFree(interp, assemEnvPtr); } @@ -2255,6 +2241,7 @@ FindLocalVar( } varNameStr = Tcl_GetStringFromObj(varNameObj, &varNameLen); if (CheckNamespaceQualifiers(interp, varNameStr, varNameLen)) { + Tcl_DecrRefCount(varNameObj); return -1; } localVar = TclFindCompiledLocal(varNameStr, varNameLen, 1, envPtr); |