2
0
Эх сурвалжийг харах

* fixed fmShareDenyNone for Solaris

git-svn-id: trunk@12684 -
Jonas Maebe 16 жил өмнө
parent
commit
78f6e5ff6e

+ 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