* cleaned up mess of r13516

git-svn-id: trunk@13524 -

rtl/win/sysutils.pp

@@ -48,12 +48,6 @@ Var
   Win32MinorVersion,
   Win32BuildNumber   : dword;
   Win32CSDVersion    : ShortString;   // CSD record is 128 bytes only?
-Const
-  { it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see 
-    also http://bugs.freepascal.org/view.php?id=8898, this allows users to configure the used
-	value
-  }
-  fmShareDenyNoneFlags : DWord = 3;  
 
 { Compatibility with Delphi }
 function Win32Check(res:boolean):boolean;inline;

rtl/win32/system.pp

@@ -114,6 +114,13 @@ const
   Dll_Thread_Attach_Hook : TDLL_Entry_Hook = nil;
   Dll_Thread_Detach_Hook : TDLL_Entry_Hook = nil;
 
+Const
+  { it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see 
+    also http://bugs.freepascal.org/view.php?id=8898, this allows users to configure the used
+	value
+  }
+  fmShareDenyNoneFlags : DWord = 3;
+  
 implementation
 
 var

rtl/win64/system.pp

@@ -106,6 +106,13 @@ const
   Dll_Process_Detach_Hook : TDLL_Entry_Hook = nil;
   Dll_Thread_Attach_Hook : TDLL_Entry_Hook = nil;
   Dll_Thread_Detach_Hook : TDLL_Entry_Hook = nil;
+  
+Const
+  { it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see 
+    also http://bugs.freepascal.org/view.php?id=8898, this allows users to configure the used
+	value
+  }
+  fmShareDenyNoneFlags : DWord = 3;  
 
 implementation