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

* Use STACK_SIZE_PARAM_IS_A_RESERVATION for stack sizes, should fix bug ID #17755

Browse Source 
git-svn-id: trunk@33346 -
This commit is contained in:
michael 2016-03-27 11:12:47 +00:00
parent 12d7061212
commit 65c880a7f6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/tthread.inc
View File

@ -7,7 +7,7 @@ begin
FInitialSuspended := CreateSuspended; FInitialSuspended := CreateSuspended;
{ Always start in suspended state, will be resumed in AfterConstruction if necessary { Always start in suspended state, will be resumed in AfterConstruction if necessary
See Mantis #16884 } See Mantis #16884 }
FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), CREATE_SUSPENDED, FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), CREATE_SUSPENDED OR STACK_SIZE_PARAM_IS_A_RESERVATION,
FThreadID); FThreadID);
if FHandle = TThreadID(0) then if FHandle = TThreadID(0) then
raise EThread.CreateFmt(SThreadCreateError, [SysErrorMessage(getlasterror)]); raise EThread.CreateFmt(SThreadCreateError, [SysErrorMessage(getlasterror)]);