paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02: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; sLineBreak = LineEnding;
{ Thread count for DLL }
Thread_count : longint = 0;
System_exception_frame : PEXCEPTION_FRAME =nil; System_exception_frame : PEXCEPTION_FRAME =nil;
implementation implementation

2
rtl/symbian/system.pp
View File

@ -61,8 +61,6 @@ const
sLineBreak = LineEnding; sLineBreak = LineEnding;
DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF; DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
{ Thread count for DLL }
Thread_count : longint = 0;
System_exception_frame : PEXCEPTION_FRAME =nil; System_exception_frame : PEXCEPTION_FRAME =nil;
type 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; end;
DLL_THREAD_ATTACH : DLL_THREAD_ATTACH :
begin begin
inclocked(Thread_count);
if Win32GetCurrentThreadId <> MainThreadIdWin32 then if Win32GetCurrentThreadId <> MainThreadIdWin32 then
begin begin
{ Allocate Threadvars } { Allocate Threadvars }
@ -68,7 +66,6 @@ function Dll_entry{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}(const info : TEntry
end; end;
DLL_THREAD_DETACH : DLL_THREAD_DETACH :
begin begin
declocked(Thread_count);
if assigned(Dll_Thread_Detach_Hook) then if assigned(Dll_Thread_Detach_Hook) then
Dll_Thread_Detach_Hook(DllParam); Dll_Thread_Detach_Hook(DllParam);
{ Release Threadvars } { Release Threadvars }

2
rtl/win32/system.pp
View File

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

3
rtl/win64/system.pp
View File

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

5
rtl/wince/system.pp
View File

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