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

+ support ait_datablock in the sdcc-sdasz80 asm output

Browse Source 
git-svn-id: branches/z80@44499 -
This commit is contained in:
nickysn 2020-04-01 22:13:47 +00:00
parent fbadb3519f
commit c3ac9d06c8
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/z80/agsdasz80.pas
View File

@ -552,6 +552,16 @@ unit agsdasz80;
ait_symbol_end :
begin
end;
ait_datablock :
begin
if tai_datablock(hp).is_global or SmartAsm then
writer.AsmWrite(tai_datablock(hp).sym.name + '::')
else
writer.AsmWrite(tai_datablock(hp).sym.name + ':');
{if SmartAsm then
AddSymbol(tai_datablock(hp).sym.name,true);}
writer.AsmWriteLn(#9'.rs'#9+tostr(tai_datablock(hp).size));
end;
ait_const:
begin
consttype:=tai_const(hp).consttype;