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

* added error checking to the test

Browse Source 
git-svn-id: trunk@42730 -
This commit is contained in:
Jonas Maebe 2019-08-18 15:55:11 +00:00
parent 693e72ade3
commit 27a4a3d446
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/theap2.pp
View File

@ -2,6 +2,7 @@ var
a : array[0..3] of pointer;
i,j : longint;
HeapStatus : THeapStatus;
oldmemsize: ptruint;
begin
randomize;
{$if not(defined(CPU8)) and not(defined(CPU16))}
@ -11,7 +12,16 @@ begin
if not(assigned(a[j])) then
getmem(a[j],1024*1024)
else
reallocmem(a[j],MemSize(a[j])*11 div 10);
begin
oldmemsize:=MemSize(a[j]);
reallocmem(a[j],oldmemsize*11 div 10);
if pbyte(a[j])^<>123 then
halt(1);
if (pbyte(a[j])+oldmemsize-1)^<>231 then
halt(2);
end;
pbyte(a[j])^:=123;
pbyte(a[j]+memsize(a[j])-1)^:=231;
end;
for i:=0 to high(a) do
freemem(a[i]);