paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:49:22 +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 var
AMode: word; AMode: word;
begin begin
if (Mode AND stOpenRead) = stOpenRead then if Mode=stCreate then
{ Read access only } Begin
AMode := $8001 AMode:=$8302;
else end
{ Read/write access or Write access } else
AMode := $8402; Begin
if (Mode AND stCreate) = stCreate then Case (Mode and 3) of
AMode := $8404; 0 : AMode:=$8001;
1 : AMode:=$8404;
2 : AMode:=$8404;
end;
end;
asm asm
xorl %eax, %eax xorl %eax, %eax
movw %ax, DosStreamError movw %ax, DosStreamError
@ -169,7 +173,10 @@ END;
{ {
$Log$ $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!! * NOTHING would work, FileOpen is now correct!!
Revision 1.2 1998/05/31 14:18:18 peter Revision 1.2 1998/05/31 14:18:18 peter