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

* InitThread variant without parameters as user threads normally cannot know the max. stack size

Browse Source 
git-svn-id: trunk@43068 -
This commit is contained in:
florian 2019-09-25 21:19:01 +00:00
parent 14b7eaa46f
commit 5ed2475c85
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/thread.inc
View File

@ -96,6 +96,13 @@ Var
CurrentTM.ReleaseThreadVars; CurrentTM.ReleaseThreadVars;
end; end;
procedure InitThread;
begin
{ we should find a reasonable value here }
InitThread($1000000);
end;
{***************************************************************************** {*****************************************************************************
Overloaded functions Overloaded functions
*****************************************************************************} *****************************************************************************}