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

* more complete/safer checking of sharing mode values allowed by OS/2

Browse Source 
git-svn-id: trunk@17564 -
This commit is contained in:
Tomas Hajny 2011-05-26 21:11:09 +00:00
parent 39312473cb
commit cbe040bcc7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/os2/sysutils.pp
View File

@ -487,7 +487,8 @@ Var
Rc, Action: cardinal;
begin
(* DenyNone if sharing not specified. *)
if Mode and 112 = 0 then Mode:=Mode or 64;
if (Mode and 112 = 0) or (Mode and 112 > 64) then
Mode := Mode or 64;
Rc:=Sys_DosOpenL(PChar (FileName), Handle, Action, 0, 0, 1, Mode, nil);
If Rc=0 then
FileOpen:=Handle
@ -514,8 +515,9 @@ var
RC, Action: cardinal;
begin
ShareMode := ShareMode and 112;
if ShareMode = 0 then
ShareMode := doDenyRW; (* Sharing mode of 0 would be rejected by OS/2 *)
(* Sharing to DenyAll as default in case of values not allowed by OS/2. *)
if (ShareMode = 0) or (ShareMode > 64) then
ShareMode := doDenyRW;
RC := Sys_DosOpenL (PChar (FileName), Handle, Action, 0, 0, $12,
faCreate or ofReadWrite or ShareMode, nil);
if RC = 0 then