summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2011-08-06 16:27:00 (GMT)
committerKevin B Kenny <kennykb@acm.org>2011-08-06 16:27:00 (GMT)
commitc29c6011291530fa0d9f267921fbc93c5e3e0cb6 (patch)
tree24f39a59ac9d5fcacb7a761a59751625cf1a2af9 /generic
parent9857d60d3bdddc10acd4194358603b92a37aa60d (diff)
downloadtcl-c29c6011291530fa0d9f267921fbc93c5e3e0cb6.zip
tcl-c29c6011291530fa0d9f267921fbc93c5e3e0cb6.tar.gz
tcl-c29c6011291530fa0d9f267921fbc93c5e3e0cb6.tar.bz2
Plug another memory leak. [Bug 3384840]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclAssembly.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c
index f45ae07..3c23358 100644
--- a/generic/tclAssembly.c
+++ b/generic/tclAssembly.c
@@ -3893,11 +3893,18 @@ BuildExceptionRanges(
prevPtr = bbPtr;
}
+ /* Make sure that all catches are closed */
+
if (catchDepth != 0) {
Tcl_Panic("unclosed catch at end of code in "
"tclAssembly.c:BuildExceptionRanges, can't happen");
}
+ /* Free temp storage */
+
+ ckfree(catchIndices);
+ ckfree(catches);
+
return TCL_OK;
}