paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 12:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use use_section_smartlink instead of af_smartlink_sections

Browse Source 
git-svn-id: trunk@2336 -
This commit is contained in:
peter 2006-01-25 18:07:36 +00:00
parent 46c0fc3e7c
commit 0bbead8114
3 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pmodules.pas
View File

@ -125,7 +125,7 @@ implementation
current_module.flags:=current_module.flags or uf_static_linked;
if (cs_create_smart in aktmoduleswitches) and
not(af_smartlink_sections in target_asm.flags) then
not use_smartlink_section then
begin
current_module.linkunitstaticlibs.add(current_module.staticlibfilename^,link_smart);
current_module.flags:=current_module.flags or uf_smart_linked;

3
compiler/systems/t_linux.pas
View File

@ -610,8 +610,7 @@ begin
StaticStr:='-static';
if (cs_link_strip in aktglobalswitches) then
StripStr:='-s';
if (af_smartlink_sections in target_asm.flags) and
(tf_smartlink_sections in target_info.flags) then
if use_smartlink_section then
GCSectionsStr:='--gc-sections';
If (cs_profile in aktmoduleswitches) or
((Info.DynamicLinker<>'') and (not SharedLibFiles.Empty)) then

3
compiler/systems/t_win.pas
View File

@ -1054,8 +1054,7 @@ begin
AsBinStr:=FindUtil(utilsprefix+'as');
if RelocSection then
RelocStr:='--base-file base.$$$';
if (af_smartlink_sections in target_asm.flags) and
(tf_smartlink_sections in target_info.flags) then
if use_smartlink_section then
GCSectionsStr:='--gc-sections';
if target_info.system in [system_arm_wince,system_i386_wince] then
begin