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 | 4b81f6ff43bff6569658b4b34f03c40ca72b4df7 (patch) | |
| tree | e13ed16b360eaf1e67674e6d31071cee64b87b68 /generic/tclStringObj.c | |
| parent | cc72d116bdbf58771070b191dc48c28de07462b1 (diff) | |
| download | tcl-4b81f6ff43bff6569658b4b34f03c40ca72b4df7.zip tcl-4b81f6ff43bff6569658b4b34f03c40ca72b4df7.tar.gz tcl-4b81f6ff43bff6569658b4b34f03c40ca72b4df7.tar.bz2 | |
Don't test the impossible.
Diffstat (limited to 'generic/tclStringObj.c')
| -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)) { |