paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 05:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make webtbs/tw30535 also working on OSes using cthreads

Browse Source 
git-svn-id: trunk@35570 -
This commit is contained in:
florian 2017-03-12 09:28:41 +00:00
parent b55cb246da
commit 1b371b15e3
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/unix/cthreads.pp
View File

@ -306,10 +306,14 @@ Type PINTRTLEvent = ^TINTRTLEvent;
pthread_exit(ThreadMain);
end;
Procedure InitCThreading;
var
TLSInitialized : longbool = FALSE;
Procedure InitCTLS;
begin
if (InterLockedExchange(longint(IsMultiThread),ord(true)) = 0) then
if (InterLockedExchange(longint(TLSInitialized),ord(true)) = 0) then
begin
{ We're still running in single thread mode, setup the TLS }
pthread_key_create(@TLSKey,nil);
@ -338,8 +342,10 @@ Type PINTRTLEvent = ^TINTRTLEvent;
writeln('Creating new thread');
{$endif DEBUG_MT}
{ Initialize multithreading if not done }
if not IsMultiThread then
InitCThreading;
if not TLSInitialized then
InitCTLS;
IsMultiThread:=true;
{ the only way to pass data to the newly created thread
in a MT safe way, is to use the heap }
new(ti);
@ -817,7 +823,7 @@ begin
Writeln('InitThreads : ',Result);
{$endif DEBUG_MT}
// We assume that if you set the thread manager, the application is multithreading.
InitCThreading;
InitCTLS;
end;
Function CDoneThreads : Boolean;