mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-15 07:26:03 +02:00
40 lines
639 B
ObjectPascal
40 lines
639 B
ObjectPascal
{ %skiptarget=go32v2 }
|
|
{ %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
|
|
if islibrary then
|
|
halt(3);
|
|
if moduleislib then
|
|
halt(4);
|
|
test;
|
|
end.
|
|
{$else not supported}
|
|
begin
|
|
Writeln('Dummy test because target does not support libraries');
|
|
end.
|
|
{$endif not supported}
|