paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:29:20 +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;
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