* fixed semaphore init, caused endless loop when terminating any

    thread

git-svn-id: trunk@4925 -

rtl/darwin/tthread.inc

@@ -142,7 +142,7 @@ begin
   // via BeginThread and creates the first TThread Object in there!
   InitThreads;
   inherited Create;
-  FSem := CurrentTM.SemaphoreInit;
+  FSem := CurrentTM.SemaphoreInit();
   FSuspended := CreateSuspended;
   FSuspendedExternal := false;
   FInitialSuspended := CreateSuspended;

rtl/freebsd/tthread.inc

@@ -136,7 +136,7 @@ begin
   // via BeginThread and creates the first TThread Object in there!
   InitThreads;
   inherited Create;
-  FSem := CurrentTM.SemaphoreInit;
+  FSem := CurrentTM.SemaphoreInit();
   FSuspended := CreateSuspended;
   FSuspendedExternal := false;
   FInitialSuspended := CreateSuspended;

rtl/linux/tthread.inc

@@ -142,7 +142,7 @@ begin
   // via BeginThread and creates the first TThread Object in there!
   InitThreads;
   inherited Create;
-  FSem := CurrentTM.SemaphoreInit;
+  FSem := CurrentTM.SemaphoreInit();
   FSuspended := CreateSuspended;
   FSuspendedExternal := false;
   FInitialSuspended := CreateSuspended;

rtl/netbsd/tthread.inc

@@ -136,7 +136,7 @@ begin
   // via BeginThread and creates the first TThread Object in there!
   InitThreads;
   inherited Create;
-  FSem := CurrentTM.SemaphoreInit;
+  FSem := CurrentTM.SemaphoreInit();
   FSuspended := CreateSuspended;
   FSuspendedExternal := false;
   FInitialSuspended := CreateSuspended;

rtl/openbsd/tthread.inc

@@ -136,7 +136,7 @@ begin
   // via BeginThread and creates the first TThread Object in there!
   InitThreads;
   inherited Create;
-  FSem := CurrentTM.SemaphoreInit;
+  FSem := CurrentTM.SemaphoreInit();
   FSuspended := CreateSuspended;
   FSuspendedExternal := false;
   FInitialSuspended := CreateSuspended;

rtl/solaris/tthread.inc

@@ -136,7 +136,7 @@ begin
   // via BeginThread and creates the first TThread Object in there!
   InitThreads;
   inherited Create;
-  FSem := CurrentTM.SemaphoreInit;
+  FSem := CurrentTM.SemaphoreInit();
   FSuspended := CreateSuspended;
   FSuspendedExternal := false;
   FInitialSuspended := CreateSuspended;