paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 20:30:53 +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.CX := SizeOf(TCountryInfo);
RealIntr($21, Regs);
DosMemGet(transfer_buffer shr 16,
transfer_buffer and 65535,
DosMemGet(transfer_buffer div 16,
transfer_buffer and 15,
CountryInfo, Regs.CX );
end;
@ -454,7 +454,10 @@ end;
{
$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
Revision 1.4 1999/02/24 15:57:28 michael