blob: 7a74047c7192ca07f0941e7b56316554b2a1459a (
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
28
29
30
31
32
33
|
{ %FAIL }
{ second simple array of const test }
{ there is no way to know the address of anything
as the array of const is pushed directly }
{$mode objfpc}
program test_cdecl_array_of_const;
var
l : longint;
const
has_errors : boolean = false;
procedure test(format : pchar; const args : array of const; var ll : longint);cdecl;
begin
ll:=5;
end;
begin
l:=4;
test('dummy',[],l);
if l<>5 then
has_errors:=true;
l:=4;
test('dummy',[345],l);
if l<>5 then
has_errors:=true;
if has_errors then
halt(1);
end.
|
