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 | 3f3dfa54cb349fb5d39961cd23c82d600247e9e7 (patch) | |
tree | a39d1803fadea4511e07f0995c0ed1ad7d0e0d95 /generic/tclEncoding.c | |
parent | 4b135ba7bf313f34c5718a14263a24b80ee103c8 (diff) | |
parent | bec1da2042481302d3230238bdf8e1d17ecae317 (diff) | |
download | tcl-3f3dfa54cb349fb5d39961cd23c82d600247e9e7.zip tcl-3f3dfa54cb349fb5d39961cd23c82d600247e9e7.tar.gz tcl-3f3dfa54cb349fb5d39961cd23c82d600247e9e7.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclEncoding.c')
-rw-r--r-- | generic/tclEncoding.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 6cec532..b6c6571 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -3234,7 +3234,7 @@ UtfToUtf16Proc( } dstStart = dst; - dstEnd = dst + dstLen - sizeof(Tcl_UniChar); + dstEnd = dst + dstLen - 2; /* 2 -> sizeof a UTF-16 code unit */ flags |= PTR2INT(clientData); result = TCL_OK; @@ -3344,7 +3344,7 @@ UtfToUcs2Proc( } dstStart = dst; - dstEnd = dst + dstLen - sizeof(Tcl_UniChar); + dstEnd = dst + dstLen - 2; /* 2 - size of UCS code unit */ result = TCL_OK; for (numChars = 0; src < srcEnd; numChars++) { |