summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authormig <mig>2011-08-01 17:15:19 (GMT)
committermig <mig>2011-08-01 17:15:19 (GMT)
commit7cafb9729cb8db722600b80cd3b1c9536ca46519 (patch)
tree8f01d54611133845b2680006211754b6c63c5e0a /generic
parent666118190e342c616ccffff20d1f7d0f14abe242 (diff)
downloadtcl-7cafb9729cb8db722600b80cd3b1c9536ca46519.zip
tcl-7cafb9729cb8db722600b80cd3b1c9536ca46519.tar.gz
tcl-7cafb9729cb8db722600b80cd3b1c9536ca46519.tar.bz2
* generic/tclProc.c (TclProcCompileProc): fix for leak of resolveInfo when recompiling procs, [Bug 3383616]. Thx go to Gustaf Neumann for detecting the bug and providing the fix.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclProc.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c
index a2de765..48f472f 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -2063,6 +2063,13 @@ TclProcCompileProc(
CompiledLocal *toFree = clPtr;
clPtr = clPtr->nextPtr;
+ if (toFree->resolveInfo) {
+ if (toFree->resolveInfo->deleteProc) {
+ toFree->resolveInfo->deleteProc(toFree->resolveInfo);
+ } else {
+ ckfree(toFree->resolveInfo);
+ }
+ }
ckfree(toFree);
}
procPtr->numCompiledLocals = procPtr->numArgs;