summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authormig <mig>2011-03-01 19:26:03 (GMT)
committermig <mig>2011-03-01 19:26:03 (GMT)
commitd21c0a8aa8925c53e28bd8150874092356620f65 (patch)
tree92cef9da3ed783606ad33c9477b35c14d766ab8b /generic/tclExecute.c
parentc874b60a078337a1c19f856b6898a856af606486 (diff)
downloadtcl-d21c0a8aa8925c53e28bd8150874092356620f65.zip
tcl-d21c0a8aa8925c53e28bd8150874092356620f65.tar.gz
tcl-d21c0a8aa8925c53e28bd8150874092356620f65.tar.bz2
* generic/tclExecute.c (ExprObjCallback): fix object leak
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index e2c873e..aa0c8b7 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -1407,7 +1407,6 @@ ExprObjCallback(
if (result == TCL_OK) {
TclSetDuplicateObj(resultPtr, Tcl_GetObjResult(interp));
- Tcl_IncrRefCount(resultPtr);
Tcl_SetObjResult(interp, saveObjPtr);
}
TclDecrRefCount(saveObjPtr);