mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 09:07:59 +02:00
32 lines
681 B
ObjectPascal
32 lines
681 B
ObjectPascal
{ %target=win32,win64 }
|
|
{ %needlibrary }
|
|
{ %opt=-vw -Sew }
|
|
{ %neededafter }
|
|
|
|
{ On targets that support dll overloading, no
|
|
warning should be generated, and the resulting code sholud work correctly. }
|
|
program tlib3b;
|
|
|
|
procedure p_proc(var a : dword); external 'tlib3a' name 'p';
|
|
|
|
function p(a1, a2, a3, a4, a5, a6, a7 : dword) : dword; external 'tlib3b' name 'p';
|
|
|
|
var
|
|
a : dword;
|
|
begin
|
|
a:=0;
|
|
p_proc(a);
|
|
if a<>1 then
|
|
begin
|
|
Writeln('Error calling tlib3a p procedure');
|
|
halt(1);
|
|
end;
|
|
a:=p(0,1,0,1,0,10,0);
|
|
if a<>12 then
|
|
begin
|
|
Writeln('Error calling tlib3b p function');
|
|
halt(1);
|
|
end;
|
|
Writeln('Everything works OK');
|
|
end.
|