mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 05:39:26 +02:00
8b48127b2c
on current fpc versions and linux always against glibc, so the shared library handling is tested
25 lines
359 B
ObjectPascal
25 lines
359 B
ObjectPascal
{ %needlibrary }
|
|
{ %target=linux,haiku }
|
|
{$mode objfpc}
|
|
|
|
{$if (FPC_FULLVERSION<=30301) and defined(linux)}
|
|
uses
|
|
initc;
|
|
{$endif (FPC_FULLVERSION<=30301) and defined(linux)}
|
|
|
|
{$linklib tw3964a}
|
|
|
|
function testfunc : longint;
|
|
begin
|
|
result:=1234;
|
|
end;
|
|
|
|
function f : longint;external name 'f';
|
|
|
|
exports
|
|
testfunc name 'testfunc';
|
|
|
|
begin
|
|
writeln(f);
|
|
end.
|