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

* FileOpen corrected

Browse Source
This commit is contained in:
Tomas Hajny 2000-07-06 18:59:41 +00:00
parent 2aea492dda
commit 44aff119af
1 changed files with 37 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
rtl/os2/objinc.inc
View File

@ -30,35 +30,40 @@ begin
FileClose := 0;
end;
FUNCTION FileOpen (Var FileName: AsciiZ; Mode: Word): THandle;
var
AMode: word;
procedure AllowSlash (P: PChar);
{Allow slash as backslash.}
var I: longint;
begin
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
movl FileName, %ebx
movw $0xff02, %ax
movw AMode, %cx
call syscall
jnc .Lexit1
movw %ax, DosStreamError { Hold Error }
xorl %eax, %eax { Open Failed }
.Lexit1:
movw %ax, __RESULT
END;
for I := 0 to StrLen (P) do
if P [I] = '/' then P [I] := '\';
end;
function FileOpen (var FileName: AsciiZ; Mode: word): THandle;
var AMode: longint;
begin
if Mode = stCreate then
AMode := $50000 (* Create / replace *)
else
AMode := Mode and $FF;
(* DenyAll if sharing not specified. *)
if AMode and 112 = 0 then AMode := AMode or 16;
asm
xorl %eax, %eax
movw %ax, DosStreamError
movl FileName, %edx
movw $0x7f0b, %eax
movw AMode, %ecx
call syscall
cmpl $0xffffffff, %eax
jnz .Lexit1
movw %cx, DosStreamError { Hold Error }
xorl %eax, %eax { Open Failed }
.Lexit1:
movw %ax, __RESULT
end;
end;
@ -143,7 +148,10 @@ end;
{
$Log$
Revision 1.8 2000-06-12 17:26:29 hajny
Revision 1.9 2000-07-06 18:59:41 hajny
* FileOpen corrected
Revision 1.8 2000/06/12 17:26:29 hajny
* little mistyping in SetFileSize
Revision 1.7 2000/06/06 17:10:36 hajny