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

Add minimum type/const for RTL compilation with threading support disabled

Browse Source 
git-svn-id: trunk@36106 -
This commit is contained in:
pierre 2017-05-04 22:12:17 +00:00
parent 52ddce608f
commit 651f8b17c1
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/systemh.inc
View File

@ -762,7 +762,7 @@ Var
{ Stack checking }
StackBottom : Pointer;
StackLength : SizeUInt;
Var
WriteErrorsToStdErr : Boolean = True;
@ -1595,7 +1595,20 @@ const
{ Generic threadmanager }
{$ifdef FPC_HAS_FEATURE_THREADING}
{$i threadh.inc}
{$endif FPC_HAS_FEATURE_THREADING}
{$else not FPC_HAS_FEATURE_THREADING}
{ Bare minimum needed to get RTL to compile
without threading support }
const
{$ifndef FPC_USE_SMALL_DEFAULTSTACKSIZE}
{ includes 16384 bytes margin for stackchecking }
DefaultStackSize = 4*1024*1024;
{$else i.e. FPC_USE_SMALL_DEFAULTSTACKSIZE}
{ Special value of Default stack size }
DefaultStackSize = 16 * 1024;
{$endif not FPC_USE_SMALL_DEFAULTSTACKSIZE}
type
PRTLEvent = type pointer;
{$endif not FPC_HAS_FEATURE_THREADING}
{*****************************************************************************
Dynamic library support