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

12
compiler/aggas.pas
View File

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