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

* fixed compilation for Darwin and AIX after addition of section attributes

Browse Source 
git-svn-id: trunk@43273 -
This commit is contained in:
Jonas Maebe 2019-10-20 14:14:09 +00:00
parent e80eee5da5
commit e3c6ef21d1
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/aggas.pas
View File

@ -474,8 +474,10 @@ implementation
var
s : string;
secflag: TSectionFlag;
sectionflags: boolean;
begin
writer.AsmLn;
sectionflags:=false;
case target_info.system of
system_i386_OS2,
system_i386_EMX: ;
@ -484,7 +486,10 @@ implementation
begin
{ ... but vasm is GAS compatible on amiga/atari, and supports named sections }
if create_smartlink_sections then
writer.AsmWrite('.section ');
begin
writer.AsmWrite('.section ');
sectionflags:=true;
end;
end;
system_powerpc_darwin,
system_i386_darwin,
@ -501,12 +506,17 @@ implementation
writer.AsmWrite('.section ');
end
else
writer.AsmWrite('.section ');
begin
writer.AsmWrite('.section ');
sectionflags:=true;
end
end;
s:=sectionname(atype,aname,aorder);
writer.AsmWrite(s);
{ flags explicitly defined? }
if (secflags<>[]) or (secprogbits<>SPB_None) then
if sectionflags and
((secflags<>[]) or
(secprogbits<>SPB_None)) then
begin
s:=',"';
for secflag in secflags do