Преглед на файлове

* limit the heap to 16kb in the i8086 far data memory models for the dos unit
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 -

nickysn преди 11 години
родител
ревизия
d00c67f9d3
променени са 2 файла, в които са добавени 12 реда и са изтрити 0 реда
  1. 6 0
      tests/test/units/dos/tdos.pp
  2. 6 0
      tests/test/units/dos/tidos.pp

+ 6 - 0
tests/test/units/dos/tdos.pp

@@ -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 - 0
tests/test/units/dos/tidos.pp

@@ -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;