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

* fix some gliches in inithreads

Browse Source 
git-svn-id: trunk@4903 -
This commit is contained in:
Almindor 2006-10-14 12:47:42 +00:00
parent ce2eb7246d
commit f102f33426
6 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/darwin/tthread.inc
View File

@ -73,8 +73,8 @@ const
procedure InitThreads;
begin
GetThreadManager(CurrentTM);
if not ThreadsInited then begin
GetThreadManager(CurrentTM);
ThreadsInited := true;
end;
end;

5
rtl/freebsd/tthread.inc
View File

@ -74,9 +74,10 @@ const
procedure InitThreads;
begin
GetThreadManager(CurrentTM);
if not ThreadsInited then
if not ThreadsInited then begin
GetThreadManager(CurrentTM);
ThreadsInited := true;
end;
end;
procedure DoneThreads;

2
rtl/linux/tthread.inc
View File

@ -75,7 +75,7 @@ const
procedure InitThreads;
begin
if not ThreadsInited then
if not ThreadsInited then begin
GetThreadManager(CurrentTM);
ThreadsInited := true;
GMainPid := fpgetpid();

5
rtl/netbsd/tthread.inc
View File

@ -74,9 +74,10 @@ const
procedure InitThreads;
begin
GetThreadManager(CurrentTM);
if not ThreadsInited then
if not ThreadsInited then begin
GetThreadManager(CurrentTM);
ThreadsInited := true;
end;
end;
procedure DoneThreads;

5
rtl/openbsd/tthread.inc
View File

@ -74,9 +74,10 @@ const
procedure InitThreads;
begin
GetThreadManager(CurrentTM);
if not ThreadsInited then
if not ThreadsInited then begin
GetThreadManager(CurrentTM);
ThreadsInited := true;
end;
end;
procedure DoneThreads;

5
rtl/solaris/tthread.inc
View File

@ -74,9 +74,10 @@ const
procedure InitThreads;
begin
GetThreadManager(CurrentTM);
if not ThreadsInited then
if not ThreadsInited then begin
GetThreadManager(CurrentTM);
ThreadsInited := true;
end;
end;
procedure DoneThreads;