diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:15:22 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:15:22 (GMT) |
| commit | 985b5f8a7463d8ef8400d49bceb87b402ed70e59 (patch) | |
| tree | 488c380d0ec7f4f0e06a4eda59cfddabf2bcc0e3 /generic/tclCmdIL.c | |
| parent | 7bea42569d8c2ccb8584155f706392d5812ec428 (diff) | |
| parent | 74d71bafde63ca49cecadc990df7b3a2d7797849 (diff) | |
| download | tcl-bug_d5ddbc7f49.zip tcl-bug_d5ddbc7f49.tar.gz tcl-bug_d5ddbc7f49.tar.bz2 | |
merge trunkbug_d5ddbc7f49
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 34c1db5..02bb3a4 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1288,6 +1288,9 @@ TclInfoFrame( }; Proc *procPtr = framePtr->framePtr ? framePtr->framePtr->procPtr : NULL; + /* Super ugly hack added to the pile so we can plug memleak */ + int needsFree = -1; + /* * Pull the information and construct the dictionary to return, as list. * Regarding use of the CmdFrame fields see tclInt.h, and its definition. @@ -1360,6 +1363,7 @@ TclInfoFrame( } ADD_PAIR("cmd", TclGetSourceFromFrame(fPtr, 0, NULL)); + needsFree = lc-1; TclStackFree(interp, fPtr); break; } @@ -1447,7 +1451,11 @@ TclInfoFrame( } } - return Tcl_NewListObj(lc, lv); + tmpObj = Tcl_NewListObj(lc, lv); + if (needsFree >= 0) { + Tcl_DecrRefCount(lv[needsFree]); + } + return tmpObj; } /* |