diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-08 20:57:06 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-08 20:57:06 (GMT) |
| commit | e787f0ec1254d077093819ab5d08680448a0b217 (patch) | |
| tree | 99ffd0d2becc5a80568b2feb0b2c81fca8e4efd3 /generic | |
| parent | b0e8c40cebd7999b6ccf308dbf0ebb8e3be0ab0b (diff) | |
| download | tcl-e787f0ec1254d077093819ab5d08680448a0b217.zip tcl-e787f0ec1254d077093819ab5d08680448a0b217.tar.gz tcl-e787f0ec1254d077093819ab5d08680448a0b217.tar.bz2 | |
More streamlining
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclStringObj.c | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index c4d07e0..31a6b26 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2962,20 +2962,20 @@ TclStringCatObjv( pendingPtr = objPtr; } else { - Tcl_GetStringFromObj(objPtr, &numBytes);/* PANIC? */ - if (numBytes) { - last = objc - oc; - if (length == 0) { - if (pendingPtr) { - Tcl_GetStringFromObj(pendingPtr, &length); /* PANIC? */ - } - if (length == 0) { - first = last; - } - } - if ((length += numBytes) < 0) { - goto overflow; - } + Tcl_GetStringFromObj(objPtr, &numBytes); /* PANIC? */ + if (numBytes == 0) { + continue; + } + last = objc - oc; + if (pendingPtr) { + Tcl_GetStringFromObj(pendingPtr, &length); /* PANIC? */ + pendingPtr = NULL; + } + if (length == 0) { + first = last; + } + if ((length += numBytes) < 0) { + goto overflow; } } } while (--oc); |