diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-08-07 15:46:09 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-08-07 15:46:09 (GMT) |
| commit | 73502b8525ebea0be169656f9b8abe994145b6bb (patch) | |
| tree | bbf523102341bcdd9dbbcf0f2d711f8b1e363a97 /generic/tclOOInfo.c | |
| parent | f25cac5641054cdcb10695a12976ec96d0f55e26 (diff) | |
| download | tcl-73502b8525ebea0be169656f9b8abe994145b6bb.zip tcl-73502b8525ebea0be169656f9b8abe994145b6bb.tar.gz tcl-73502b8525ebea0be169656f9b8abe994145b6bb.tar.bz2 | |
[Bug 3387082]: Plug memory leak in call chain introspection.
Diffstat (limited to 'generic/tclOOInfo.c')
| -rw-r--r-- | generic/tclOOInfo.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclOOInfo.c b/generic/tclOOInfo.c index ac8ae46..f298320 100644 --- a/generic/tclOOInfo.c +++ b/generic/tclOOInfo.c @@ -1542,6 +1542,7 @@ InfoClassCallCmd( return TCL_ERROR; } Tcl_SetObjResult(interp, TclOORenderCallChain(interp, callPtr)); + TclOODeleteChain(callPtr); return TCL_OK; } |