diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-12-23 17:13:13 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-12-23 17:13:13 (GMT) |
| commit | ba3df90803cf86284bd11f8dc99881e0d29ee5be (patch) | |
| tree | 330461b0ef2fa3f190972d85a65036c3bf8d16e2 /generic/tclEncoding.c | |
| parent | 25c010db735cbf6e820482b7b62bc85833f85a41 (diff) | |
| download | tcl-ba3df90803cf86284bd11f8dc99881e0d29ee5be.zip tcl-ba3df90803cf86284bd11f8dc99881e0d29ee5be.tar.gz tcl-ba3df90803cf86284bd11f8dc99881e0d29ee5be.tar.bz2 | |
Support TCL_ENCODING_CHAR_LIMIT in the BinaryProc driver.
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 2a766d1..5c5254b 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2131,6 +2131,9 @@ BinaryProc( if (dstLen < 0) { dstLen = 0; } + if ((flags & TCL_ENCODING_CHAR_LIMIT) && srcLen > *dstCharsPtr) { + srcLen = *dstCharsPtr; + } if (srcLen > dstLen) { srcLen = dstLen; result = TCL_CONVERT_NOSPACE; |