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

Fix section output for user section in smart mode

Browse Source 
git-svn-id: trunk@27510 -
This commit is contained in:
pierre 2014-04-10 14:18:48 +00:00
parent 62b3375033
commit e0744b9759
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/x86/agx86nsm.pas
View File

@ -592,7 +592,7 @@ interface
AsmWrite(aname);
end;
AsmLn;
LasTSecType:=atype;
LastSecType:=atype;
end;
procedure TX86NasmAssembler.WriteTree(p:TAsmList);
@ -617,7 +617,7 @@ interface
e : extended;
{$endif cpuextended}
fixed_opcode: TAsmOp;
prefix : string;
prefix, LastSecName : string;
begin
if not assigned(p) then
exit;
@ -663,15 +663,15 @@ interface
begin
if tai_section(hp).sectype<>sec_none then
WriteSection(tai_section(hp).sectype,tai_section(hp).name^);
LasTSecType:=tai_section(hp).sectype;
LastSecType:=tai_section(hp).sectype;
end;
ait_align :
begin
if (tai_align(hp).aligntype>1) then
begin
if (lastsectype=sec_bss) or (
(lastsectype=sec_threadvar) and
if (LastSecType=sec_bss) or (
(LastSecType=sec_threadvar) and
(target_info.system in (systems_windows+systems_wince))
) then
AsmWriteLn(#9'ALIGNB '+tostr(tai_align(hp).aligntype))
@ -1097,14 +1097,18 @@ interface
WriteHeader;
end;
{ avoid empty files }
LastSecType:=sec_none;
while assigned(hp.next) and (tai(hp.next).typ in [ait_cutobject,ait_section,ait_comment]) do
begin
if tai(hp.next).typ=ait_section then
lasTSectype:=tai_section(hp.next).sectype;
begin
LastSecType:=tai_section(hp.next).sectype;
LastSecName:=tai_section(hp.next).name^;
end;
hp:=tai(hp.next);
end;
if lasTSectype<>sec_none then
WriteSection(lasTSectype,'');
if LastSecType<>sec_none then
WriteSection(LastSecType,LastSecName);
AsmStartSize:=AsmSize;
end;
end;