diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tclAssembly.c | 7 |
2 files changed, 11 insertions, 0 deletions
@@ -1,3 +1,7 @@ +2011-08-06 Kevin B, Kenny <kennykb@acm.org> + + * generic/tclAssemnbly.c: Plug another memory leak. [Bug 3384840] + 2011-08-05 Kevin B. Kenny <kennykb@acm.org> * generic/tclStrToD.c: Plugged a memory leak in double->string 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; } |