summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2017-06-08 21:10:01 (GMT)
committerdgp <dgp@users.sourceforge.net>2017-06-08 21:10:01 (GMT)
commitd6fff27296f668ac9cb89dda2fc6732634c19424 (patch)
treee13ed16b360eaf1e67674e6d31071cee64b87b68 /generic
parent7c926553f6dcae359d48cc16d1ace1291a5dfb4b (diff)
downloadtcl-d6fff27296f668ac9cb89dda2fc6732634c19424.zip
tcl-d6fff27296f668ac9cb89dda2fc6732634c19424.tar.gz
tcl-d6fff27296f668ac9cb89dda2fc6732634c19424.tar.bz2
Don't test the impossible.dgp_stringcat_delaystringrep
Diffstat (limited to 'generic')
-rw-r--r--generic/tclStringObj.c8
1 files changed, 3 insertions, 5 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 43f8016..aa99545 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -3089,11 +3089,9 @@ TclStringCatObjv(
return TCL_ERROR;
}
dst = Tcl_GetString(objResultPtr) + start;
- if (length > start) {
- TclFreeIntRep(objResultPtr);
- } else {
- /* Can't happen ? */
- }
+
+ /* assert ( length > start ) */
+ TclFreeIntRep(objResultPtr);
} else {
objResultPtr = Tcl_NewObj(); /* PANIC? */
if (0 == Tcl_AttemptSetObjLength(objResultPtr, length)) {