Merged revisions 3538 via svnmerge from

http://[email protected]/svn/fpc/trunk

........
r3538 | hajny | 2006-05-14 23:25:16 +0000 (Sun, 14 May 2006) | 1 line

  * fix return value for BeginThread
........

git-svn-id: branches/fixes_2_0@3625 -

rtl/os2/systhrd.inc

@@ -211,8 +211,9 @@ end;
 {$ifdef DEBUG_MT}
         writeln('Starting new thread');
 {$endif DEBUG_MT}
-        SysBeginThread := DosCreateThread (DWord (ThreadID), @ThreadMain, SA,
-                                           CreationFlags, StackSize);
+        if DosCreateThread (DWord (ThreadID), @ThreadMain, SA,
+                                           CreationFlags, StackSize) = 0 then
+        SysBeginThread := ThreadID else SysBeginThread := 0;
       end;