diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-09-06 20:35:27 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-09-06 20:35:27 (GMT) |
| commit | acf03d58760b6b427d032736a1ae61b0e9f1220a (patch) | |
| tree | a39d1803fadea4511e07f0995c0ed1ad7d0e0d95 /generic/tclStringObj.c | |
| parent | 4b135ba7bf313f34c5718a14263a24b80ee103c8 (diff) | |
| parent | 68037a7cc3e5b38365e10c6784fb856cbaf9008e (diff) | |
| download | tcl-acf03d58760b6b427d032736a1ae61b0e9f1220a.zip tcl-acf03d58760b6b427d032736a1ae61b0e9f1220a.tar.gz tcl-acf03d58760b6b427d032736a1ae61b0e9f1220a.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 2e42e98..3e1df0b 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -578,6 +578,9 @@ Tcl_GetUniChar( if (stringPtr->numChars == TCL_INDEX_NONE) { TclNumUtfCharsM(stringPtr->numChars, objPtr->bytes, objPtr->length); } + if (index >= stringPtr->numChars) { + return -1; + } if (stringPtr->numChars == objPtr->length) { return (unsigned char) objPtr->bytes[index]; } |