paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 20:20:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix tw3124 test for systems on pagecode 437.

Browse Source 
* Never modify the first half of LowerCaseTable:
   even if 'A' is the upper form of 'a' with an accent ('…'),
   that doesn't mean that the lowercase form of 'A' should be
   'a' with the accent ('…') instead of plain 'a'.

git-svn-id: trunk@34321 -
This commit is contained in:
pierre 2016-08-16 14:47:29 +00:00
parent b9e336dcbe
commit 6f80a4cc29
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/go32v2/sysutils.pp
View File

@ -755,7 +755,8 @@ begin
DosMemGet(CountryInfo.UpperCaseTable shr 16, 2 + CountryInfo.UpperCaseTable and 65535, UpperCaseTable[128], 128);
for i := 128 to 255 do
begin
if UpperCaseTable[i] <> chr(i) then
{ Never modify the lowercase of any char if ord(char) < 127 }
if (UpperCaseTable[i] <> chr(i)) and (ord(UpperCaseTable[i])>=128) then
LowerCaseTable[ord(UpperCaseTable[i])] := chr(i);
end;
end;