paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 02:19:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

- 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

Browse Source 
git-svn-id: trunk@16472 -
This commit is contained in:
florian 2010-11-28 20:46:50 +00:00
parent 6b42ba170b
commit a0c25dc0f9
6 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/nativent/system.pp
View File

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

2
rtl/symbian/system.pp
View File

@ -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

3
rtl/win/syswin.inc
View File

@ -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 }

2
rtl/win32/system.pp
View File

@ -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

3
rtl/win64/system.pp
View File

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

5
rtl/wince/system.pp
View File

@ -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 ?!}