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

* default sharing mode changed to deny all (compatibility)

Browse Source
This commit is contained in:
Tomas Hajny 2000-07-09 17:05:24 +00:00
parent bc377c69ce
commit 45b2819768
1 changed files with 9 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
rtl/os2/sysos2.pas
View File

@ -473,8 +473,6 @@ procedure do_open(var f;p:pchar;flags:longint);
when (flags and $10000) there is no check for close (needed for textfiles)
}
(* var oflags:byte;
*)
var Action: longint;
begin
@ -495,8 +493,6 @@ begin
{ reset file handle }
filerec(f).handle := UnusedHandle;
Action := 0;
(* oflags:=2;
*)
{ convert filemode to filerec modes }
case (flags and 3) of
0 : filerec(f).mode:=fminput;
@ -505,17 +501,6 @@ begin
end;
if (flags and $1000)<>0 then
Action := $50000; (* Create / replace *)
(* begin
filerec(f).mode:=fmoutput;
oflags:=2;
end
else
if (flags and $100)<>0 then
begin
filerec(f).mode:=fmoutput;
oflags:=2;
end;
*)
{ empty name is special }
if p[0]=#0 then
begin
@ -534,14 +519,9 @@ begin
exit;
end;
Action := Action or (Flags and $FF);
(* DenyNone if sharing not specified. *)
(* DenyAll if sharing not specified. *)
if Flags and 112 = 0 then
(* begin
if Flags and 3 = 0 then*)
Action := Action or 64;
(* else
Action := Action or 32;
end;*)
Action := Action or 16;
asm
movl $0x7f2b, %eax
movl Action, %ecx
@ -562,43 +542,14 @@ begin
movl Action, %ecx
movl p, %edx
call syscall
jnc .LOPEN2
movw %ax, InOutRes;
cmpl $0xffffffff, %eax
jnz .LOPEN1
movw %cx, InOutRes
movw UnusedHandle, %ax
.LOPEN2:
movl f,%edx
movw %ax,(%edx)
end;
(*
if (flags and $1000)<>0 then
{Use create function.}
asm
movb $0x3c,%ah
movl p,%edx
xorw %cx,%cx
call syscall
jnc .LOPEN1
movw %ax,inoutres;
movw $0xffff,%ax
.LOPEN1:
movl f,%edx
movw %ax,(%edx)
end
else
{Use open function.}
asm
movb $0x3d,%ah
movb oflags,%al
movl p,%edx
call syscall
jnc .LOPEN2
movw %ax,inoutres;
movw $0xffff,%ax
.LOPEN2:
movl f,%edx
movw %ax,(%edx)
end;
*)
{ for systems that have more handles }
if FileRec (F).Handle > FileHandleCount then
FileHandleCount := FileRec (F).Handle;
@ -631,7 +582,6 @@ asm
dec eax
@IsDevEnd:
end;
(* do_isdevice := (Handle <= 5);*)
{$ASMMODE ATT}
@ -856,7 +806,10 @@ begin
end.
{
$Log$
Revision 1.32 2000-06-11 09:47:57 hajny
Revision 1.33 2000-07-09 17:05:24 hajny
* default sharing mode changed to deny all (compatibility)
Revision 1.32 2000/06/11 09:47:57 hajny
* error handling and sharing corrected
Revision 1.31 2000/06/05 18:53:30 hajny