diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2011-08-06 16:27:00 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2011-08-06 16:27:00 (GMT) |
| commit | c29c6011291530fa0d9f267921fbc93c5e3e0cb6 (patch) | |
| tree | 24f39a59ac9d5fcacb7a761a59751625cf1a2af9 /generic/tclAssembly.c | |
| parent | 9857d60d3bdddc10acd4194358603b92a37aa60d (diff) | |
| download | tcl-c29c6011291530fa0d9f267921fbc93c5e3e0cb6.zip tcl-c29c6011291530fa0d9f267921fbc93c5e3e0cb6.tar.gz tcl-c29c6011291530fa0d9f267921fbc93c5e3e0cb6.tar.bz2 | |
Plug another memory leak. [Bug 3384840]
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 7 |
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; } |