diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-11-30 17:52:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-11-30 17:52:09 (GMT) |
| commit | 49e332ded25e7502ce49b62bb7ef6b22cdd2e90f (patch) | |
| tree | 26dbaafb612b99b197231d5759173873cbb1d4e9 /generic/tclScan.c | |
| parent | 079887fe42be52a69c2b001ae3efb5dae39862e6 (diff) | |
| parent | db726dc570738b047f110645527b804c3b59d28e (diff) | |
| download | tcl-49e332ded25e7502ce49b62bb7ef6b22cdd2e90f.zip tcl-49e332ded25e7502ce49b62bb7ef6b22cdd2e90f.tar.gz tcl-49e332ded25e7502ce49b62bb7ef6b22cdd2e90f.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index aca1eff..6582b75 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -889,7 +889,7 @@ Tcl_ScanObjCmd( i = (int)sch; #if TCL_UTF_MAX == 4 if (!offset) { - offset = Tcl_UtfToUniChar(string, &sch); + offset = TclUtfToUniChar(string, &sch); i = (((i<<10) & 0x0FFC00) + 0x10000) + (sch & 0x3FF); } #endif |