blob: 36222cbbeb587a16e3da42077ff65504d3870690 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %norun }
{ if the compiler is still buggy and consumed the "calling stdcall" while
parsing the forward definition of test, it will complain about a calling
convention mismatch when parsing the actual definition
}
{$calling cdecl}
function test(l1,l2: longint): longint; forward;
{$calling stdcall}
function test(l1,l2: longint): longint; cdecl;
begin
end;
begin
end.
|
