mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 08:07:22 +01:00
3eec0569be
when linked to FPC-compiled programs under linux/i386 which
do not use libc + test (mantis #8730). Programs which do use
libc and other linux targets have to be fixed in a similar
way until we properly fix everything by not exporting
any symbols at all from shared libraries by default (and
only those appearing in the "exports" section).
Finalisation does not work yet either for FPC-compiled
programs on linux/anything.
git-svn-id: trunk@10495 -
37 lines
483 B
ObjectPascal
37 lines
483 B
ObjectPascal
{$mode delphi}
|
|
|
|
{$ifdef darwin}
|
|
{$PIC+}
|
|
{$endif darwin}
|
|
|
|
{$ifdef CPUX86_64}
|
|
{$ifndef WINDOWS}
|
|
{$PIC+}
|
|
{$endif WINDOWS}
|
|
{$endif CPUX86_64}
|
|
unit uw8730a;
|
|
|
|
interface
|
|
|
|
function _Lib1Func: pchar;
|
|
|
|
implementation
|
|
|
|
function _Lib1Func: pchar;
|
|
begin
|
|
result := 'result of function Lib1Func';
|
|
end;
|
|
|
|
var
|
|
t: text;
|
|
|
|
initialization
|
|
assign(t,'tw8730a.txt');
|
|
rewrite(t);
|
|
close(t);
|
|
WriteLn( 'Init of Unit1' );
|
|
|
|
end.
|
|
|
|
//= END OF FILE ===============================================================
|