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

Merged revisions 819 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@821 -
This commit is contained in:
florian 2005-08-07 15:55:02 +00:00
parent d4bd1e495d
commit 1dae3f24ec
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; var p:pointer;
l : ^longarray; l : ^longarray;
size, storage : longint; size, storage : cardinal;
i,j:longint; i,j:longint;
done:boolean; done:boolean;
mem : sizeint; mem : sizeint;
@ -27,6 +27,8 @@ begin
repeat repeat
size := round(size * 1.1); size := round(size * 1.1);
storage := size * sizeof(real); storage := size * sizeof(real);
if storage>2000000000 then
storage:=2000000000;
writeln('size=',size,' (storage=',storage,')'); writeln('size=',size,' (storage=',storage,')');
getmem(l,storage); getmem(l,storage);
if (l=nil) then if (l=nil) then