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

Start getmem calls with smaller memory chuncks for CPU16 like i8086

Browse Source 
git-svn-id: trunk@36240 -
This commit is contained in:
pierre 2017-05-18 08:47:03 +00:00
parent 570f159e65
commit c0fd038eaa
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/webtbs/tw2494.pp
View File

@ -9,6 +9,17 @@
uses
erroru;
{$ifdef CPU16}
const
StartSize = 16*1024;
MaxSize = $10000;
{$else}
const
StartSize = 1024*1024;
MaxSize = 2000000000{$ifdef CPU64}*2000000000{$endif CPU64};
{$endif}
type
matrix_element = array[1..1] of byte;
big_matrix = array[1..1000000,1..610] of matrix_element;
@ -28,12 +39,12 @@ begin
ReturnNilIfGrowHeapFails:=true;
domem(mem);
done := false;
size := 40000000;
size := StartSize;
repeat
size := size+(size div 10);
storage := size * sizeof(real);
if storage>2000000000{$ifdef CPU64}*2000000000{$endif CPU64} then
storage:=2000000000{$ifdef CPU64}*2000000000{$endif CPU64};
if storage>MaxSize then
storage:=MaxSize;
writeln('size=',size,' (storage=',storage,')');
getmem(l,storage);
if (l=nil) then