diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-01 19:29:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-01 19:29:35 (GMT) |
| commit | a83438752ce20ab140bef109b52782965cd59faf (patch) | |
| tree | 3bb2fb2fe7c444100b0e1016c0ba6c1471ebcde0 /unix/tclUnixInit.c | |
| parent | ab4a0645607893390736778642c9a97ada919e53 (diff) | |
| parent | b48681a38eaf7bad225b14ae059a0a25e6df161a (diff) | |
| download | tcl-a83438752ce20ab140bef109b52782965cd59faf.zip tcl-a83438752ce20ab140bef109b52782965cd59faf.tar.gz tcl-a83438752ce20ab140bef109b52782965cd59faf.tar.bz2 | |
Fix [5fca83d78c]: [encoding system] is wrong in an ISO-8859-1 locale
Diffstat (limited to 'unix/tclUnixInit.c')
| -rw-r--r-- | unix/tclUnixInit.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index b72be04..199c71f 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -335,7 +335,6 @@ static int MacOSXGetLibraryPath(Tcl_Interp *interp, MODULE_SCOPE long tclMacOSXDarwinRelease; long tclMacOSXDarwinRelease = 0; #endif - /* *--------------------------------------------------------------------------- @@ -591,17 +590,21 @@ SearchKnownEncodings( int left = 0; int right = sizeof(localeTable)/sizeof(LocaleTable); + /* Here, search for i in the interval left <= i < right. */ while (left < right) { int test = (left + right)/2; int code = strcmp(localeTable[test].lang, encoding); if (code == 0) { + /* Found it at i == test. */ return localeTable[test].encoding; } if (code < 0) { + /* Restrict the search to the interval test < i < right. */ left = test+1; } else { - right = test-1; + /* Restrict the search to the interval left <= i < test. */ + right = test; } } return NULL; |