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

* merged Jonas fix from GO32v2

Browse Source
This commit is contained in:
Tomas Hajny 2004-01-11 23:08:39 +00:00
parent 490598c62a
commit ad451147d7
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/watcom/system.pp
View File

@ -1197,7 +1197,7 @@ begin
regs.realeax := $3d00 + (flags and $ff) { For now, map to Open API }
else
regs.realeax := $6c00; { Use Extended Open/Create API }
if regs.realah = $3d then
if byte(regs.realeax shr 8) = $3d then
begin { Using the older Open or Create API's }
if (action and $00f0) <> 0 then
regs.realeax := $3c00; { Map to Create/Replace API }
@ -1226,7 +1226,7 @@ begin
regs.realeax := $3d00+(flags and $ff) {For now, map to Open API}
else
regs.realeax := $6c00; {Use Extended Open/Create API}
if regs.realah = $3d then
if byte(regs.realeax shr 8) = $3d then
begin { Using the older Open or Create API's }
if (action and $00f0) <> 0 then
regs.realeax := $3c00; {Map to Create/Replace API}
@ -1538,7 +1538,10 @@ END.
{
$Log$
Revision 1.10 2004-01-11 22:54:44 hajny
Revision 1.11 2004-01-11 23:08:39 hajny
* merged Jonas fix from GO32v2
Revision 1.10 2004/01/11 22:54:44 hajny
* 'conservative' version of the do_open patch by Joe da Silva
Revision 1.9 2003/12/15 15:57:48 peter