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

* limit the heap to 16kb in the i8086 far data memory models for the dos unit

Browse Source 
tests that execute a child process. Otherwise, by default, all DOS memory is
  reserved in these memory models, there's no DOS memory left for the child
  process and exec() fails.

git-svn-id: trunk@28061 -
This commit is contained in:
nickysn 2014-06-25 13:43:44 +00:00
parent a9ddf18779
commit d00c67f9d3
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/units/dos/tdos.pp
View File

@ -21,6 +21,12 @@ uses dos;
{$DEFINE NOEXESUFFIX}
{$endif}
{$ifdef msdos}
{$if defined(FPC_MM_COMPACT) or defined(FPC_MM_LARGE) or defined(FPC_MM_HUGE)}
{$M 16384,0,16384} { 16k stack, up to 16k heap }
{$endif}
{$endif}
const
exedir : string = '';

6
tests/test/units/dos/tidos.pp
View File

@ -22,6 +22,12 @@ uses dos;
{$DEFINE NOEXESUFFIX}
{$endif}
{$ifdef msdos}
{$if defined(FPC_MM_COMPACT) or defined(FPC_MM_LARGE) or defined(FPC_MM_HUGE)}
{$M 16384,0,16384} { 16k stack, up to 16k heap }
{$endif}
{$endif}
procedure TestInfo;
var
dt : DateTime;