- removes Thread_count from the system unit of several OSes: the value of this variable was unpredictable and the hebaviour was not fixable, resolves #18089

git-svn-id: trunk@16472 -

rtl/nativent/system.pp

@@ -78,8 +78,6 @@ const
 
   sLineBreak = LineEnding;
 
-  { Thread count for DLL }
-  Thread_count : longint = 0;
   System_exception_frame : PEXCEPTION_FRAME =nil;
 
 implementation

rtl/symbian/system.pp

@@ -61,8 +61,6 @@ const
   sLineBreak = LineEnding;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
 
-  { Thread count for DLL }
-  Thread_count : longint = 0;
   System_exception_frame : PEXCEPTION_FRAME =nil;
 
 type

rtl/win/syswin.inc

@@ -50,8 +50,6 @@ function Dll_entry{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}(const info : TEntry
          end;
        DLL_THREAD_ATTACH :
          begin
-           inclocked(Thread_count);
-
            if Win32GetCurrentThreadId <> MainThreadIdWin32 then
            begin
              { Allocate Threadvars  }
@@ -68,7 +66,6 @@ function Dll_entry{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}(const info : TEntry
         end;
        DLL_THREAD_DETACH :
          begin
-           declocked(Thread_count);
            if assigned(Dll_Thread_Detach_Hook) then
              Dll_Thread_Detach_Hook(DllParam);
            { Release Threadvars }

rtl/win32/system.pp

@@ -66,8 +66,6 @@ const
   sLineBreak = LineEnding;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
 
-  { Thread count for DLL }
-  Thread_count : longint = 0;
   System_exception_frame : PEXCEPTION_FRAME =nil;
 
 type

rtl/win64/system.pp

@@ -63,9 +63,6 @@ const
   sLineBreak = LineEnding;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
 
-  { Thread count for DLL }
-  Thread_count : longint = 0;
-
 type
   TStartupInfo = record
     cb : longint;

rtl/wince/system.pp

@@ -57,9 +57,6 @@ const
   sLineBreak = LineEnding;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
 
-  { Thread count for DLL }
-  Thread_count : longint = 0;
-
 var
 { WinCE Info }
   hprevinst,
@@ -864,14 +861,12 @@ begin
        end;
      DLL_THREAD_ATTACH :
        begin
-         inclocked(Thread_count);
 { Allocate Threadvars ?!}
          if assigned(Dll_Thread_Attach_Hook) then
            Dll_Thread_Attach_Hook(DllParam);
        end;
      DLL_THREAD_DETACH :
        begin
-         declocked(Thread_count);
          if assigned(Dll_Thread_Detach_Hook) then
            Dll_Thread_Detach_Hook(DllParam);
 { Release Threadvars ?!}