paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:01:55 +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; procedure InitThreads;
begin begin
GetThreadManager(CurrentTM);
if not ThreadsInited then begin if not ThreadsInited then begin
GetThreadManager(CurrentTM);
ThreadsInited := true; ThreadsInited := true;
end; end;
end; end;

5
rtl/freebsd/tthread.inc
View File

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

2
rtl/linux/tthread.inc
View File

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

5
rtl/netbsd/tthread.inc
View File

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

5
rtl/openbsd/tthread.inc
View File

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

5
rtl/solaris/tthread.inc
View File

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