fpcsrc/tests/tbs/tb0324.pp


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
33
34
35
36
37
38
39
40
41
42
43
44

{ this test program test allocation of large pieces of stack }
{ this is especially necessary for win32                     }

procedure p1(a : array of byte);

  var
     i : longint;

  begin
     for i:=0 to high(a) do
       a[i]:=0;
  end;

procedure p2;

  var
     a : array[0..20000] of byte;
     i : longint;

  begin
     for i:=0 to high(a) do
       a[i]:=0;
  end;

procedure p3;

  var
     a : array[0..200000] of byte;
     i : longint;

  begin
     for i:=0 to high(a) do
       a[i]:=0;
  end;


var
   a : array[0..10000] of byte;

begin
   p1(a);
   p2;
   p3;
end.