* fix some gliches in inithreads

git-svn-id: trunk@4903 -

rtl/darwin/tthread.inc

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

rtl/freebsd/tthread.inc

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

rtl/linux/tthread.inc

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

rtl/netbsd/tthread.inc

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

rtl/openbsd/tthread.inc

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

rtl/solaris/tthread.inc

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