diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-06-06 09:01:18 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-06-06 09:01:18 (GMT) |
| commit | 449b9c2c29e600d4e02c0430f360262aabc2ddb7 (patch) | |
| tree | 0d0e769fb4588739cf87fe3cfd3e1e860d99541f | |
| parent | 1172340e247bd64f10a4c5e5b812bd5283ffbb83 (diff) | |
| download | tcl-449b9c2c29e600d4e02c0430f360262aabc2ddb7.zip tcl-449b9c2c29e600d4e02c0430f360262aabc2ddb7.tar.gz tcl-449b9c2c29e600d4e02c0430f360262aabc2ddb7.tar.bz2 | |
amend to [eac4656f1e8cf793] (moved to scope where numChars != 0 in Unicode case)
| -rw-r--r-- | generic/tclStringObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index c1c15f2..6332e9f 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2930,9 +2930,9 @@ TclStringCatObjv( if (length == 0) { first = last; } - } - if ((length += numChars) < 0) { - break; /* overflow */ + if ((length += numChars) < 0) { + break; /* overflow */ + } } } } |