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 | |
| parent | c874b60a078337a1c19f856b6898a856af606486 (diff) | |
| download | tcl-d21c0a8aa8925c53e28bd8150874092356620f65.zip tcl-d21c0a8aa8925c53e28bd8150874092356620f65.tar.gz tcl-d21c0a8aa8925c53e28bd8150874092356620f65.tar.bz2 | |
* generic/tclExecute.c (ExprObjCallback): fix object leak
| -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); |