mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 05:09:30 +02:00
ceb547d027
routines (just like "varargs"), because if implemented in Pascal then
on the callee side this array of const parameter is treated as a Pascal-
style array of const
* don't give the "cdecl'ared functions have no high parameter" warning for
array of const parameters for cdecl external routines and procvars
git-svn-id: trunk@13618 -
33 lines
436 B
ObjectPascal
33 lines
436 B
ObjectPascal
{ %fail }
|
|
|
|
{ first simple array of const test }
|
|
|
|
{$mode objfpc}
|
|
|
|
|
|
program test_cdecl_array_of_const;
|
|
|
|
var
|
|
l : longint;
|
|
|
|
const
|
|
has_errors : boolean = false;
|
|
|
|
procedure test(var ll : longint;format : pchar; const args : array of const);cdecl;
|
|
begin
|
|
ll:=5;
|
|
end;
|
|
|
|
begin
|
|
l:=4;
|
|
test(l,'dummy',[]);
|
|
if l<>5 then
|
|
has_errors:=true;
|
|
l:=4;
|
|
test(l,'dummy',[345]);
|
|
if l<>5 then
|
|
has_errors:=true;
|
|
if has_errors then
|
|
halt(1);
|
|
end.
|