diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2025-05-25 17:27:37 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2025-05-25 17:27:37 (GMT) |
| commit | 5d722018bad4420f72308bd15a9f9617661bc5da (patch) | |
| tree | bb4e0204821892a02c0eed22dd8a849a9ce10b99 | |
| parent | aef01f53945ad861aaa46fa9c7f10de49ee6fa5e (diff) | |
| download | tcl-5d722018bad4420f72308bd15a9f9617661bc5da.zip tcl-5d722018bad4420f72308bd15a9f9617661bc5da.tar.gz tcl-5d722018bad4420f72308bd15a9f9617661bc5da.tar.bz2 | |
Start on [7346adc50f]. Now raise error on truncated encoding. Still have to handle replace and tcl8 profiles.
| -rw-r--r-- | generic/tclEncoding.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 5842a0b..bdf06c9 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -1228,7 +1228,7 @@ Tcl_ExternalToUtfDStringEx( * and loop. Otherwise, return the result we got. */ if ((result != TCL_CONVERT_NOSPACE) && - !(result == TCL_CONVERT_MULTIBYTE && (flags & TCL_ENCODING_END))) { + (result != TCL_CONVERT_MULTIBYTE || (flags & TCL_ENCODING_END))) { Tcl_Size nBytesProcessed = (src - srcStart); Tcl_DStringSetLength(dstPtr, soFar); |