Browse Source

* hopefully fixed beos compilation after r12630 (it doesn't have flock)

git-svn-id: trunk@12631 -
Jonas Maebe 16 years ago
parent
commit
57ff980bc3
1 changed files with 2 additions and 0 deletions
  1. 2 0
      rtl/unix/sysutils.pp

+ 2 - 0
rtl/unix/sysutils.pp

@@ -182,6 +182,7 @@ var
   lockres: cint;
   lockres: cint;
 begin
 begin
   DoFileLocking:=Handle;
   DoFileLocking:=Handle;
+{$ifndef beos}
   if (Handle>=0) then
   if (Handle>=0) then
     begin
     begin
       case (mode and (fmShareExclusive or fmShareDenyWrite or fmShareDenyRead)) of
       case (mode and (fmShareExclusive or fmShareDenyWrite or fmShareDenyRead)) of
@@ -213,6 +214,7 @@ begin
           exit;
           exit;
         end;
         end;
     end;
     end;
+{$endif not beos}
 end;
 end;