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 | 097bee7c6ba61b29717c1780aed2370468649e4f (patch) | |
| tree | bbf523102341bcdd9dbbcf0f2d711f8b1e363a97 /generic/tclOOInfo.c | |
| parent | d90ed9c0f07bbb5cf66140e89fcebc0da3f08285 (diff) | |
| download | tcl-097bee7c6ba61b29717c1780aed2370468649e4f.zip tcl-097bee7c6ba61b29717c1780aed2370468649e4f.tar.gz tcl-097bee7c6ba61b29717c1780aed2370468649e4f.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; } |