mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-16 01:11:31 +01:00
36 lines
449 B
ObjectPascal
36 lines
449 B
ObjectPascal
{$ifdef win32}
|
|
{$define supported}
|
|
{$define supportidx}
|
|
{$endif win32}
|
|
{$ifdef linux}
|
|
{$define supported}
|
|
{$endif linux}
|
|
|
|
{$ifdef supported}
|
|
|
|
library bug;
|
|
|
|
const
|
|
publicname='TestName';
|
|
publicindex = 1234;
|
|
|
|
procedure Test;export;
|
|
|
|
begin
|
|
end;
|
|
|
|
exports
|
|
Test name publicname;
|
|
{$ifdef supportidx}
|
|
exports
|
|
Test index publicindex;
|
|
{$endif}
|
|
|
|
begin
|
|
end.
|
|
{$else supported}
|
|
begin
|
|
Writeln('No library for that target');
|
|
end.
|
|
{$endif supported}
|