paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 00:51:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 3538 via svnmerge from

Browse Source 
http://hajny@svn.freepascal.org/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 -
This commit is contained in:
Tomas Hajny 2006-05-22 06:16:48 +00:00
parent c926e1727c
commit 387cb841b3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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;