paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

Try to support shared libraries for freebsd

Browse Source 
git-svn-id: trunk@19242 -
This commit is contained in:
pierre 2011-09-26 10:25:27 +00:00
parent 23a8fb1754
commit 1f0e5b496f
1 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/systems/t_bsd.pas
View File

@ -269,9 +269,18 @@ begin
{ set special options for some targets }
if not IsDarwin Then
begin
prtobj:='prt0';
cprtobj:='cprt0';
gprtobj:='gprt0';
if isdll and (target_info.system in systems_freebsd) then
begin
prtobj:='dllprt0';
cprtobj:='dllprt0';
gprtobj:='dllprt0';
end
else
begin
prtobj:='prt0';
cprtobj:='cprt0';
gprtobj:='gprt0';
end;
linkdynamic:=not(SharedLibFiles.empty);
linklibc:=(SharedLibFiles.Find('c')<>nil);
// this one is a bit complex.
@ -382,6 +391,28 @@ begin
HPath:=TCmdStrListItem(HPath.Next);
end;
end;
{ force local symbol resolution (i.e., inside the shared }
{ library itself) for all non-exorted symbols, otherwise }
{ several RTL symbols of FPC-compiled shared libraries }
{ will be bound to those of a single shared library or }
{ to the main program }
if (isdll) and (target_info.system in systems_freebsd) then
begin
LinkRes.add('VERSION');
LinkRes.add('{');
LinkRes.add(' {');
if not texportlibunix(exportlib).exportedsymnames.empty then
begin
LinkRes.add(' global:');
repeat
LinkRes.add(' '+texportlibunix(exportlib).exportedsymnames.getfirst+';');
until texportlibunix(exportlib).exportedsymnames.empty;
end;
LinkRes.add(' local:');
LinkRes.add(' *;');
LinkRes.add(' };');
LinkRes.add('}');
end;
if not LdSupportsNoResponseFile then
LinkRes.Add('INPUT(');