From 65690b9eeed01207743b53e16e3c0e5b1d7be53b Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 12 Aug 2009 18:42:09 +0000
Subject: [PATCH] * forgotten part of r13514

git-svn-id: trunk@13522 -
---
 rtl/win/sysfile.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/win/sysfile.inc b/rtl/win/sysfile.inc
index 78a8d58ba2..9387efff82 100644
--- a/rtl/win/sysfile.inc
+++ b/rtl/win/sysfile.inc
@@ -235,7 +235,7 @@ begin
       shflags := file_Share_Write
   else
     if ((filemode and fmshareDenyNone) = fmshareDenyNone) then
-      shflags := file_Share_Read + file_Share_Write;
+      shflags := fmShareDenyNoneFlags;
   { convert filemode to filerec modes }
   case (flags and 3) of
    0 : begin