mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
18 lines
377 B
ObjectPascal
18 lines
377 B
ObjectPascal
{ %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.
|