summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-06-08 12:37:23 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-06-08 12:37:23 (GMT)
commit4276e234955e8ecdc91fd5d2ebee1acbb35753ad (patch)
tree6f8f9a0b6f5343b44398512009be1d975669180a /generic
parente3c58bc54a39c2911fb59460045b16c4e61c491c (diff)
parent8cb64e1074f47fa62a4f2461569272a27a57f9d6 (diff)
downloadtcl-4276e234955e8ecdc91fd5d2ebee1acbb35753ad.zip
tcl-4276e234955e8ecdc91fd5d2ebee1acbb35753ad.tar.gz
tcl-4276e234955e8ecdc91fd5d2ebee1acbb35753ad.tar.bz2
Fix [2738427]: Tcl_NumUtfChars(...) no overflow check.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclUtf.c27
1 files changed, 14 insertions, 13 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c
index 52b4291..b13ad75 100644
--- a/generic/tclUtf.c
+++ b/generic/tclUtf.c
@@ -465,7 +465,6 @@ Tcl_NumUtfChars(
* for strlen(string). */
{
Tcl_UniChar ch;
- register Tcl_UniChar *chPtr = &ch;
register int i;
/*
@@ -478,23 +477,25 @@ Tcl_NumUtfChars(
i = 0;
if (length < 0) {
while (*src != '\0') {
- src += TclUtfToUniChar(src, chPtr);
+ src += TclUtfToUniChar(src, &ch);
i++;
}
+ if (i < 0) i = INT_MAX; /* Bug [2738427] */
} else {
- register int n;
-
- while (length > 0) {
- if (UCHAR(*src) < 0xC0) {
- length--;
- src++;
- } else {
- n = Tcl_UtfToUniChar(src, chPtr);
- length -= n;
- src += n;
- }
+ register const char *endPtr = src + length - TCL_UTF_MAX;
+
+ while (src < endPtr) {
+ src += TclUtfToUniChar(src, &ch);
i++;
}
+ endPtr += TCL_UTF_MAX;
+ while ((src < endPtr) && Tcl_UtfCharComplete(src, endPtr - src)) {
+ src += TclUtfToUniChar(src, &ch);
+ i++;
+ }
+ if (src < endPtr) {
+ i += endPtr - src;
+ }
}
return i;
}