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

+ implemented ait_regalloc asm output for sdcc-sdasz80

Browse Source 
git-svn-id: branches/z80@44491 -
This commit is contained in:
nickysn 2020-04-01 19:05:22 +00:00
parent b486e6b353
commit b1ea62f5f6
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/z80/agsdasz80.pas
View File

@ -458,6 +458,12 @@ unit agsdasz80;
writer.AsmWritePChar(tai_comment(hp).str); writer.AsmWritePChar(tai_comment(hp).str);
writer.AsmLn; writer.AsmLn;
end; end;
ait_regalloc :
begin
if (cs_asm_regalloc in current_settings.globalswitches) then
writer.AsmWriteLn(#9#9+asminfo^.comment+'Register '+std_regname(tai_regalloc(hp).reg)+' '+
regallocstr[tai_regalloc(hp).ratype]);
end;
ait_section : ait_section :
begin begin
if tai_section(hp).sectype<>sec_none then if tai_section(hp).sectype<>sec_none then