diff options
| author | mig <mig> | 2011-03-01 19:26:03 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-03-01 19:26:03 (GMT) |
| commit | d21c0a8aa8925c53e28bd8150874092356620f65 (patch) | |
| tree | 92cef9da3ed783606ad33c9477b35c14d766ab8b /generic/tclExecute.c | |
| parent | c874b60a078337a1c19f856b6898a856af606486 (diff) | |
| download | tcl-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.c | 1 |
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); |