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

Avoid some range check errors for msdos target

Browse Source 
git-svn-id: trunk@24517 -
This commit is contained in:
pierre 2013-05-16 22:06:33 +00:00
parent cc8708c3c9
commit 7f5aa5a441
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/threadh.inc
View File

@ -15,8 +15,13 @@
**********************************************************************}
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}
{ every platform can have it's own implementation of GetCPUCount; use the define
HAS_GETCPUCOUNT to disable the default implementation which simply returns 1 }

8
rtl/msdos/system.pp
View File

@ -7,6 +7,12 @@ interface
{$DEFINE FPC_INCLUDE_SOFTWARE_MUL}
{$DEFINE FPC_INCLUDE_SOFTWARE_MOD_DIV}
{$DEFINE FPC_USE_SMALL_DEFAULTSTACKSIZE}
{ To avoid warnings in thread.inc code,
but value must be really given after
systemh.inc is included otherwise the
$mode switch is not effective }
{$I systemh.inc}
const
@ -24,7 +30,7 @@ const
const
{ Default filehandles }
UnusedHandle = -1;
UnusedHandle = $ffff;{ instead of -1, as it is a word value}
StdInputHandle = 0;
StdOutputHandle = 1;
StdErrorHandle = 2;