diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-20 14:18:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-20 14:18:47 (GMT) |
| commit | 5319a7d93f431d1921f3c93112027d79e43b988a (patch) | |
| tree | 876bc2d3f9e2f8a8b6c98280ce227aadcbcb97a3 /generic/tclEncoding.c | |
| parent | b273a9c1d4c036fce56101f8723037d491d6618f (diff) | |
| download | tcl-5319a7d93f431d1921f3c93112027d79e43b988a.zip tcl-5319a7d93f431d1921f3c93112027d79e43b988a.tar.gz tcl-5319a7d93f431d1921f3c93112027d79e43b988a.tar.bz2 | |
Fix [bdcb5126c0]: Failed assertion in test chan-io-7.3
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 35b74c7..93e4171 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -3424,7 +3424,8 @@ TableToUtfProc( } else if (PROFILE_REPLACE(flags)) { ch = UNICODE_REPLACE_CHAR; } else { - numChars++; /* Silently consume */ + src--; /* See bug [bdcb5126c0] */ + result = TCL_CONVERT_MULTIBYTE; break; } } else { |