paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 20:49:43 +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

26
compiler/aggas.pas
View File

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