paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-10 06:18:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix shared lib native linknig

Browse Source 
git-svn-id: trunk@14283 -
This commit is contained in:
pierre 2009-11-27 23:16:06 +00:00
parent 6bead44bdf
commit 100e7c4d76
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/systems/t_sunos.pas
View File

@ -364,7 +364,7 @@ begin
if (isdll) then if (isdll) then
begin begin
LinkRes2:=TLinkRes.Create(outputexedir+Info.ResName); LinkRes2:=TLinkRes.Create(outputexedir+Info.ResName);
LinkRes2.add('VERSION'); // LinkRes2.add('VERSION'); not needed for now
LinkRes2.add(' {'); LinkRes2.add(' {');
if not texportlibunix(exportlib).exportedsymnames.empty then if not texportlibunix(exportlib).exportedsymnames.empty then
begin begin
@ -568,7 +568,8 @@ begin
while not linkres.data.Empty do while not linkres.data.Empty do
begin begin
s:=linkres.data.GetFirst; s:=linkres.data.GetFirst;
linkstr:=linkstr+s+' '; if s<>'' then
linkstr:=linkstr+' '+s;
end; end;
linkres.free; linkres.free;
Replace(cmdstr,'$RESDATA',linkstr); Replace(cmdstr,'$RESDATA',linkstr);
@ -576,7 +577,7 @@ begin
if use_gnu_ld then if use_gnu_ld then
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false) success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false)
else { Using utilsprefix has no sense on /usr/bin/ld } else { Using utilsprefix has no sense on /usr/bin/ld }
success:=DoExec(FindUtil(BinStr),CmdStr,true,false); success:=DoExec(FindUtil(BinStr),Trim(CmdStr),true,false);
{ Strip the library ? } { Strip the library ? }