paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add replacement of $GCSECTIONS for shared libraries

Browse Source 
git-svn-id: trunk@39403 -
This commit is contained in:
pierre 2018-07-07 07:22:51 +00:00
parent 3673f03841
commit 6cab9fd7db
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/systems/t_linux.pas
View File

@ -1435,6 +1435,7 @@ Function TLinkerLinux.MakeSharedLibrary:boolean;
var
InitStr,
FiniStr,
GCSectionsStr,
SoNameStr : string[80];
binstr,
cmdstr : TCmdStr;
@ -1443,6 +1444,11 @@ begin
MakeSharedLibrary:=false;
if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.sharedlibfilename);
if (cs_link_smart in current_settings.globalswitches) and
create_smartlink_sections then
GCSectionsStr:='--gc-sections'
else
GCSectionsStr:='';
{ Write used files and libraries }
WriteResponseFile(true);
@ -1461,6 +1467,7 @@ begin
Replace(cmdstr,'$INIT',InitStr);
Replace(cmdstr,'$FINI',FiniStr);
Replace(cmdstr,'$SONAME',SoNameStr);
Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
success:=DoExec(FindUtil(utilsprefix+binstr),cmdstr,true,false);
{ Strip the library ? }