summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvasiljevic <zv@archiware.com>2010-04-06 08:26:02 (GMT)
committervasiljevic <zv@archiware.com>2010-04-06 08:26:02 (GMT)
commit5055dc9378be7d7de8ad6803810d94cbecf17af8 (patch)
tree13e4b74ae79b8c53532d6582f3d200058f312b8e
parent7955c2b2b7e55460c32f8248fd3bf70b6615cb70 (diff)
downloadtcl-5055dc9378be7d7de8ad6803810d94cbecf17af8.zip
tcl-5055dc9378be7d7de8ad6803810d94cbecf17af8.tar.gz
tcl-5055dc9378be7d7de8ad6803810d94cbecf17af8.tar.bz2
Reverted previous checin as Tcl_ObjSetVar2 (convoluted and undocumented)
jnterface implicitly decrements refcount of the passed result object when the passed result object refcount was already zero.
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclCmdMZ.c3
2 files changed, 1 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog
index 152888d..43f9f1d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,3 @@
-2010-04-06 Zoran Vasiljevic <vasiljevic@users.sourceforge.net>
-
- * generic/tclCmdMZ.c: (Tcl_RegexpObjCmd): Fixed object leak.
-
2010-04-03 Zoran Vasiljevic <vasiljevic@users.sourceforge.net>
* generic/tclStringObj.c: (SetStringFromAny): avoid trampling
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 8fbd88f..2011b4b 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.163.2.7 2010/04/06 07:43:52 vasiljevic Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.163.2.8 2010/04/06 08:26:02 vasiljevic Exp $
*/
#include "tclInt.h"
@@ -370,7 +370,6 @@ Tcl_RegexpObjCmd(
if (valuePtr == NULL) {
Tcl_AppendResult(interp, "couldn't set variable \"",
TclGetString(objv[i]), "\"", NULL);
- Tcl_DecrRefCount(newPtr);
return TCL_ERROR;
}
}