Pārlūkot izejas kodu

+ support ait_datablock in the sdcc-sdasz80 asm output

git-svn-id: branches/z80@44499 -
nickysn 5 gadi atpakaļ
vecāks
revīzija
c3ac9d06c8
1 mainītis faili ar 10 papildinājumiem un 0 dzēšanām
  1. 10 0
      compiler/z80/agsdasz80.pas

+ 10 - 0
compiler/z80/agsdasz80.pas

@@ -552,6 +552,16 @@ unit agsdasz80;
             ait_symbol_end :
             ait_symbol_end :
               begin
               begin
               end;
               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:
             ait_const:
               begin
               begin
                 consttype:=tai_const(hp).consttype;
                 consttype:=tai_const(hp).consttype;