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

* thread creation failure for win<x>. Mantis 13798

Browse Source 
git-svn-id: trunk@13188 -
This commit is contained in:
marco 2009-05-23 15:40:13 +00:00
parent c40d6cca8b
commit 82b9749e71
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/win/tthread.inc
View File

@ -20,6 +20,9 @@ begin
if CreateSuspended then Flags := CREATE_SUSPENDED; if CreateSuspended then Flags := CREATE_SUSPENDED;
FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), Flags, FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), Flags,
FThreadID); FThreadID);
if FHandle = TThreadID(0) then
raise EThread.create('Failed to create new thread, code:'+inttostr(getlasterror));
FFatalException := nil; FFatalException := nil;
end; end;