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

* limited storage to 2e9 so it causes no wrap around on big machines

Browse Source 
git-svn-id: trunk@819 -
This commit is contained in:
florian 2005-08-07 15:51:15 +00:00
parent 2d606f52f3
commit d1233afc48
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw2494.pp
View File

@ -15,7 +15,7 @@ type
var p:pointer;
l : ^longarray;
size, storage : longint;
size, storage : cardinal;
i,j:longint;
done:boolean;
mem : sizeint;
@ -27,6 +27,8 @@ begin
repeat
size := round(size * 1.1);
storage := size * sizeof(real);
if storage>2000000000 then
storage:=2000000000;
writeln('size=',size,' (storage=',storage,')');
getmem(l,storage);
if (l=nil) then