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

* fix solaris ld version mapfile (option -M)

Browse Source 
git-svn-id: trunk@14282 -
This commit is contained in:
pierre 2009-11-27 22:38:19 +00:00
parent 2354c0d43a
commit 6bead44bdf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/systems/t_sunos.pas
View File

@ -365,7 +365,6 @@ begin
begin
LinkRes2:=TLinkRes.Create(outputexedir+Info.ResName);
LinkRes2.add('VERSION');
LinkRes2.add('{');
LinkRes2.add(' {');
if not texportlibunix(exportlib).exportedsymnames.empty then
begin
@ -377,7 +376,6 @@ begin
LinkRes2.add(' local:');
LinkRes2.add(' *;');
LinkRes2.add(' };');
LinkRes2.add('}');
LinkRes2.writetodisk;
LinkRes2.Free;
end;
@ -408,11 +406,13 @@ begin
{ Write staticlibraries }
if not StaticLibFiles.Empty then
begin
linkres.add('-(');
While not StaticLibFiles.Empty do
begin
S:=StaticLibFiles.GetFirst;
LinkRes.AddFileName(maybequoted(s))
end;
linkres.add('(-');
end;
{ Write sharedlibraries like -l<lib>, also add the needed dynamic linker
@ -519,7 +519,7 @@ begin
if use_gnu_ld then
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false)
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);
{ Remove ReponseFile }
{$IFNDEF LinkTest}