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

* rename the local sectionflags and sectionprogbits variables to the more clear usesectionflags and usesectionprogbits

Browse Source 
git-svn-id: trunk@44927 -
This commit is contained in:
svenbarth 2020-04-21 06:05:10 +00:00
parent 61358b1eaa
commit b5a4f8837c
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/aggas.pas
View File

@ -474,12 +474,12 @@ implementation
var var
s : string; s : string;
secflag: TSectionFlag; secflag: TSectionFlag;
sectionprogbits, usesectionprogbits,
sectionflags: boolean; usesectionflags: boolean;
begin begin
writer.AsmLn; writer.AsmLn;
sectionflags:=false; usesectionflags:=false;
sectionprogbits:=false; usesectionprogbits:=false;
case target_info.system of case target_info.system of
system_i386_OS2, system_i386_OS2,
system_i386_EMX: ; system_i386_EMX: ;
@ -490,8 +490,8 @@ implementation
if create_smartlink_sections then if create_smartlink_sections then
begin begin
writer.AsmWrite('.section '); writer.AsmWrite('.section ');
sectionflags:=true; usesectionflags:=true;
sectionprogbits:=true; usesectionprogbits:=true;
{ hack, to avoid linker warnings on Amiga/Atari, when vlink merges { hack, to avoid linker warnings on Amiga/Atari, when vlink merges
rodata sections into data sections, better solution welcomed... } rodata sections into data sections, better solution welcomed... }
if atype in [sec_rodata,sec_rodata_norel] then if atype in [sec_rodata,sec_rodata_norel] then
@ -507,7 +507,7 @@ implementation
{ according to the GNU AS guide AS for COFF does not support the { according to the GNU AS guide AS for COFF does not support the
progbits } progbits }
writer.AsmWrite('.section '); writer.AsmWrite('.section ');
sectionflags:=true; usesectionflags:=true;
end; end;
system_powerpc_darwin, system_powerpc_darwin,
system_i386_darwin, system_i386_darwin,
@ -530,19 +530,19 @@ implementation
the assembler will ignore them/spite out a warning anyways } the assembler will ignore them/spite out a warning anyways }
if not(atype in [sec_data,sec_rodata,sec_rodata_norel]) then if not(atype in [sec_data,sec_rodata,sec_rodata_norel]) then
begin begin
sectionflags:=true; usesectionflags:=true;
sectionprogbits:=true; usesectionprogbits:=true;
end; end;
end 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 (sectionflags or sectionprogbits) and if (usesectionflags or usesectionprogbits) and
((secflags<>[]) or ((secflags<>[]) or
(secprogbits<>SPB_None)) then (secprogbits<>SPB_None)) then
begin begin
if sectionflags then if usesectionflags then
begin begin
s:=',"'; s:=',"';
for secflag in secflags do for secflag in secflags do
@ -556,7 +556,7 @@ implementation
end; end;
writer.AsmWrite(s+'"'); writer.AsmWrite(s+'"');
end; end;
if sectionprogbits then if usesectionprogbits then
begin begin
case secprogbits of case secprogbits of
SPB_PROGBITS: SPB_PROGBITS: