From b42741732b25dc899bafb2b77d53d07243a080a1 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 8 Mar 2011 15:14:18 +0000 Subject: * generic/tclResult.c (ResetObjResult): Correct failure to clear invalid intrep. Thanks to Colin McDonald. [Bug 3202905] --- ChangeLog | 5 +++++ generic/tclResult.c | 12 +++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7f54c6a..0086f85 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-03-08 Don Porter + + * generic/tclResult.c (ResetObjResult): Correct failure to clear + invalid intrep. Thanks to Colin McDonald. [Bug 3202905] + 2011-03-07 Jan Nijtmans * unix/tclUnixInit: diff --git a/generic/tclResult.c b/generic/tclResult.c index 556903c..7b58d44 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -959,12 +959,14 @@ ResetObjResult( TclNewObj(objResultPtr); Tcl_IncrRefCount(objResultPtr); iPtr->objResultPtr = objResultPtr; - } else if (objResultPtr->bytes != tclEmptyStringRep) { - if (objResultPtr->bytes != NULL) { - ckfree((char *) objResultPtr->bytes); + } else { + if (objResultPtr->bytes != tclEmptyStringRep) { + if (objResultPtr->bytes) { + ckfree((char *) objResultPtr->bytes); + } + objResultPtr->bytes = tclEmptyStringRep; + objResultPtr->length = 0; } - objResultPtr->bytes = tclEmptyStringRep; - objResultPtr->length = 0; TclFreeIntRep(objResultPtr); objResultPtr->typePtr = NULL; } -- cgit v0.12 uba_ajuba2_2_0_synthetic Tcl is a high-level, general-purpose, interpreted, dynamic programming language. It was designed with the goal of being very simple but powerful.
summaryrefslogtreecommitdiffstats
path: root/ChangeLog.2001
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-10-23 14:30:40 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-10-23 14:30:40 (GMT)
commit8ce51a07b8d38dd87747125c886b78d9960f9fe8 (patch)
treeb73b9401062024257cd42aa3034e00c36bf38177 /ChangeLog.2001
parentca7c0960d7638677ec58d01f6229fda1c9e310a4 (diff)
downloadtcl-8ce51a07b8d38dd87747125c886b78d9960f9fe8.zip
tcl-8ce51a07b8d38dd87747125c886b78d9960f9fe8.tar.gz
tcl-8ce51a07b8d38dd87747125c886b78d9960f9fe8.tar.bz2
Bump to release number 8.5.19
Diffstat (limited to 'ChangeLog.2001')
0 files changed, 0 insertions, 0 deletions
generated by cgit v0.12 at 2025-12-03 00:42:23 (GMT)