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

Fix section alignment code for GNU assembler for smartlinked objects on aix system

Browse Source 
git-svn-id: trunk@35885 -
This commit is contained in:
pierre 2017-04-22 08:48:23 +00:00
parent 1f3e7442c1
commit 6eee90ad3f
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aggas.pas
View File

@ -521,19 +521,21 @@ implementation
TODO: This likely applies to all systems which smartlink without TODO: This likely applies to all systems which smartlink without
creating libraries } creating libraries }
begin
if is_smart_section(atype) and (aname<>'') then if is_smart_section(atype) and (aname<>'') then
begin begin
s:=sectionattrs(atype); s:=sectionattrs(atype);
if (s<>'') then if (s<>'') then
writer.AsmWrite(',"'+s+'"'); writer.AsmWrite(',"'+s+'"');
end end;
else if target_info.system in systems_aix then if target_info.system in systems_aix then
begin begin
s:=sectionalignment_aix(atype,secalign); s:=sectionalignment_aix(atype,secalign);
if s<>'' then if s<>'' then
writer.AsmWrite(','+s); writer.AsmWrite(','+s);
end; end;
end; end;
end;
writer.AsmLn; writer.AsmLn;
LastSecType:=atype; LastSecType:=atype;
end; end;