paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 17:06:04 +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

26
compiler/aggas.pas
View File

@ -521,18 +521,20 @@ 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 }
if is_smart_section(atype) and (aname<>'') then begin
begin if is_smart_section(atype) and (aname<>'') then
s:=sectionattrs(atype); begin
if (s<>'') then s:=sectionattrs(atype);
writer.AsmWrite(',"'+s+'"'); if (s<>'') then
end writer.AsmWrite(',"'+s+'"');
else if target_info.system in systems_aix then end;
begin if target_info.system in systems_aix then
s:=sectionalignment_aix(atype,secalign); begin
if s<>'' then s:=sectionalignment_aix(atype,secalign);
writer.AsmWrite(','+s); if s<>'' then
end; writer.AsmWrite(','+s);
end;
end;
end; end;
writer.AsmLn; writer.AsmLn;
LastSecType:=atype; LastSecType:=atype;