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

* fix return value for BeginThread

Browse Source 
git-svn-id: trunk@3538 -
This commit is contained in:
Tomas Hajny 2006-05-14 23:25:16 +00:00
parent 0f942e3592
commit 71402d3ac2
1 changed files with 3 additions and 2 deletions

5
rtl/os2/systhrd.inc
View File

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