diff options
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | generic/tclExecute.c | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -1,5 +1,7 @@ 2011-03-01 Miguel Sofer <msofer@users.sf.net> + * generic/tclExecute.c (ExprObjCallback): fix object leak + * generic/tclExecute.c (TEBCresume): store local var array and constants in automatic vars to reduce indirection, slight perf increase 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); |