blob: e81d08aa253240236e3ebcb591bbd72328e0cabf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
program testmem;
{$mode objfpc}
uses cmem;
Type
PLongint = ^Longint;
Var P : PLongint;
i : longint;
err : boolean;
begin
P:=GetMem(1000*SizeOf(Longint));
For I:=0 to 999 do
P[i]:=i;
P:=ReallocMem(P,500*SizeOf(Longint));
For I:=0 to 499 do
if P[i]<>i Then
begin
Writeln ('Oh-oh, ',i,'th index differs.');
err:=true;
end;
FreeMem(P);
if err then
halt(1);
end.
|
