summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-07-16 23:58:54 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-07-16 23:58:54 (GMT)
commitc0f4026d88454c1460a3b0905cb41ee61a16ad1a (patch)
tree7d6bcbe177cc610137e7a1d3f4ebe9dce45a369d /generic/tclCmdIL.c
parent8545051315841a4c5671ceb49710eb176012d8cc (diff)
downloadtcl-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.c10
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);
}
/*