Browse Source

* fixed fmShareDenyNone for Solaris

git-svn-id: trunk@12684 -
Jonas Maebe 16 years ago
parent
commit
78f6e5ff6e
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/unix/sysutils.pp

+ 1 - 1
rtl/unix/sysutils.pp

@@ -190,7 +190,7 @@ begin
         exclusive locks for files only opened for reading nor shared
         exclusive locks for files only opened for reading nor shared
         locks for files opened only for writing
         locks for files opened only for writing
       }
       }
-      if ((mode and (fmShareCompat or fmShareExclusive or fmShareDenyWrite or fmShareDenyRead)) = 0) then
+      if ((mode and (fmShareCompat or fmShareExclusive or fmShareDenyWrite or fmShareDenyRead or fmShareDenyNone)) = 0) then
         begin
         begin
           mode := mode and not(fmShareCompat);
           mode := mode and not(fmShareCompat);
           if ((mode and (fmOpenRead or fmOpenWrite or fmOpenReadWrite)) = fmOpenWrite) then
           if ((mode and (fmOpenRead or fmOpenWrite or fmOpenReadWrite)) = fmOpenWrite) then