paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 19:10:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bug in country info code fixed

Browse Source
This commit is contained in:
pierre 1999-08-19 14:00:08 +00:00
parent 588efe2ed1
commit 89279cc0f0
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/filutil.inc
View File

@ -395,8 +395,8 @@ begin
Regs.DI := transfer_buffer and 15; Regs.DI := transfer_buffer and 15;
Regs.CX := SizeOf(TCountryInfo); Regs.CX := SizeOf(TCountryInfo);
RealIntr($21, Regs); RealIntr($21, Regs);
DosMemGet(transfer_buffer shr 16, DosMemGet(transfer_buffer div 16,
transfer_buffer and 65535, transfer_buffer and 15,
CountryInfo, Regs.CX ); CountryInfo, Regs.CX );
end; end;
@ -454,7 +454,10 @@ end;
{ {
$Log$ $Log$
Revision 1.5 1999-02-28 13:18:12 michael Revision 1.6 1999-08-19 14:00:08 pierre
* bug in country info code fixed
Revision 1.5 1999/02/28 13:18:12 michael
+ Added internationalization support + Added internationalization support
Revision 1.4 1999/02/24 15:57:28 michael Revision 1.4 1999/02/24 15:57:28 michael