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
28
29
30
31
32
|
{ %NEEDEDAFTER }
program go32v2_crash;
const
MAX_SIZE = 256;
SIZE_INC = 8;
type
TMemArray = array [0..MAX_SIZE div SIZE_INC] of pointer;
var
i : longint;
MemArray : TMemArray;
function Size(i: longint) : longint;
begin
Size:=1+SIZE_INC*i;
end;
begin
FillChar(MemArray,Sizeof(MemArray),#0);
for i:=0 to MAX_SIZE div SIZE_INC do
begin
GetMem(MemArray[i],Size(i));
end;
for i:=1 to MAX_SIZE div SIZE_INC do
begin
FreeMem(MemArray[i],Size(i));
end;
Writeln(stderr,'Everthing is fine');
end.
|
