Jelajahi Sumber

* fixed fmShareDenyNone for Solaris

git-svn-id: trunk@12684 -
Jonas Maebe 16 tahun lalu
induk
melakukan
78f6e5ff6e
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  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