diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-08 21:10:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-08 21:10:01 (GMT) |
| commit | d6fff27296f668ac9cb89dda2fc6732634c19424 (patch) | |
| tree | e13ed16b360eaf1e67674e6d31071cee64b87b68 | |
| parent | 7c926553f6dcae359d48cc16d1ace1291a5dfb4b (diff) | |
| download | tcl-d6fff27296f668ac9cb89dda2fc6732634c19424.zip tcl-d6fff27296f668ac9cb89dda2fc6732634c19424.tar.gz tcl-d6fff27296f668ac9cb89dda2fc6732634c19424.tar.bz2 | |
Don't test the impossible.dgp_stringcat_delaystringrep
| -rw-r--r-- | generic/tclStringObj.c | 8 |
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)) { |