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

* Glurbl.... now work perfectly! Do not change :)

Browse Source
This commit is contained in:
carl 1998-07-06 12:26:19 +00:00
parent 3a10beb991
commit a5243e665e
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/dos/go32v1/objinc.inc
View File

@ -41,14 +41,18 @@ FUNCTION FileOpen (Var FileName: AsciiZ; Mode: Word): THandle;
var
AMode: word;
begin
if (Mode AND stOpenRead) = stOpenRead then
{ Read access only }
AMode := $8001
else
{ Read/write access or Write access }
AMode := $8402;
if (Mode AND stCreate) = stCreate then
AMode := $8404;
if Mode=stCreate then
Begin
AMode:=$8302;
end
else
Begin
Case (Mode and 3) of
0 : AMode:=$8001;
1 : AMode:=$8404;
2 : AMode:=$8404;
end;
end;
asm
xorl %eax, %eax
movw %ax, DosStreamError
@ -169,7 +173,10 @@ END;
{
$Log$
Revision 1.3 1998-07-02 12:25:27 carl
Revision 1.4 1998-07-06 12:26:19 carl
* Glurbl.... now work perfectly! Do not change :)
Revision 1.3 1998/07/02 12:25:27 carl
* NOTHING would work, FileOpen is now correct!!
Revision 1.2 1998/05/31 14:18:18 peter