Browse Source

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

git-svn-id: trunk@12631 -
Jonas Maebe 17 năm trước cách đây
mục cha
commit
57ff980bc3
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  1. 2 0
      rtl/unix/sysutils.pp

+ 2 - 0
rtl/unix/sysutils.pp

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