paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 16:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed getting the current locale's ansi upper case table under i8086-msdos

Browse Source 
git-svn-id: trunk@31904 -
This commit is contained in:
nickysn 2015-10-01 15:05:33 +00:00
parent cc448b94ba
commit 12f49eb280
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/msdos/sysutils.pp
View File

@ -696,6 +696,8 @@ end;
procedure InitAnsi;
type
PFarChar = ^char; far;
var
CountryInfo: TCountryInfo; i: integer;
begin
@ -728,10 +730,9 @@ begin
and Offset:Segment word record (PM) }
{ get the uppercase table from dosmemory }
GetExtendedCountryInfo(2, $FFFF, $FFFF, CountryInfo);
{ TODO: implement }
// DosMemGet(CountryInfo.UpperCaseTable shr 16, 2 + CountryInfo.UpperCaseTable and 65535, UpperCaseTable[128], 128);
for i := 128 to 255 do
begin
UpperCaseTable[i] := PFarChar(CountryInfo.UpperCaseTable)[i+(2-128)];
if UpperCaseTable[i] <> chr(i) then
LowerCaseTable[ord(UpperCaseTable[i])] := chr(i);
end;