diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-16 23:58:54 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-16 23:58:54 (GMT) |
| commit | c0f4026d88454c1460a3b0905cb41ee61a16ad1a (patch) | |
| tree | 7d6bcbe177cc610137e7a1d3f4ebe9dce45a369d /generic/tclCmdIL.c | |
| parent | 8545051315841a4c5671ceb49710eb176012d8cc (diff) | |
| download | tcl-c0f4026d88454c1460a3b0905cb41ee61a16ad1a.zip tcl-c0f4026d88454c1460a3b0905cb41ee61a16ad1a.tar.gz tcl-c0f4026d88454c1460a3b0905cb41ee61a16ad1a.tar.bz2 | |
Backout checkin that broke test io-39.1.
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 99d9332..a26d6cc 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1288,9 +1288,6 @@ 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. @@ -1363,7 +1360,6 @@ TclInfoFrame( } ADD_PAIR("cmd", TclGetSourceFromFrame(fPtr, 0, NULL)); - needsFree = lc-1; TclStackFree(interp, fPtr); break; } @@ -1451,11 +1447,7 @@ TclInfoFrame( } } - tmpObj = Tcl_NewListObj(lc, lv); - if (needsFree >= 0) { - Tcl_DecrRefCount(lv[needsFree]); - } - return tmpObj; + return Tcl_NewListObj(lc, lv); } /* |