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 | d586b47d44f07d8ec29304c59c566f74b817fda5 (patch) | |
| tree | 7d6bcbe177cc610137e7a1d3f4ebe9dce45a369d | |
| parent | b58f928be59711d567a629fc5a2579de4ab73aee (diff) | |
| download | tcl-d586b47d44f07d8ec29304c59c566f74b817fda5.zip tcl-d586b47d44f07d8ec29304c59c566f74b817fda5.tar.gz tcl-d586b47d44f07d8ec29304c59c566f74b817fda5.tar.bz2 | |
Backout checkin that broke test io-39.1.
| -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); } /* |