mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-06 03:10:39 +01:00
35 lines
548 B
ObjectPascal
35 lines
548 B
ObjectPascal
{ %NEEDLIBRARY }
|
|
|
|
{ Test program to test linking to fpc library }
|
|
|
|
{$ifdef mswindows}
|
|
{$define supported}
|
|
{$endif mswindows}
|
|
{$ifdef Unix}
|
|
{$define supported}
|
|
{$endif Unix}
|
|
{$ifndef fpc}
|
|
{$define supported}
|
|
{$endif}
|
|
|
|
{$ifdef supported}
|
|
|
|
const
|
|
{$ifdef windows}
|
|
libname='tlibrary1.dll';
|
|
{$else}
|
|
libname='tlibrary1';
|
|
{$linklib tlibrary1}
|
|
{$endif}
|
|
|
|
procedure test;external libname name 'TestName';
|
|
|
|
begin
|
|
test;
|
|
end.
|
|
{$else not supported}
|
|
begin
|
|
Writeln('Dummy test because target does not support libraries');
|
|
end.
|
|
{$endif not supported}
|