소스 검색

+ output unsupported aligns as comments (I don't think z80asm supports an align directive)

git-svn-id: branches/z80@44424 -
nickysn 5 년 전
부모
커밋
b91269b821
1개의 변경된 파일5개의 추가작업 그리고 0개의 파일을 삭제
  1. 5 0
      compiler/z80/agz80asm.pas

+ 5 - 0
compiler/z80/agz80asm.pas

@@ -205,6 +205,11 @@ unit agz80asm;
                 writer.AsmWritePChar(tai_comment(hp).str);
                 writer.AsmLn;
               end;
+            ait_align :
+              begin
+                if tai_align_abstract(hp).aligntype>1 then
+                  writer.AsmWriteLn(asminfo^.comment+'Unsupported ALIGN '+tostr(tai_align_abstract(hp).aligntype));
+              end;
             ait_label :
               begin
                 if tai_label(hp).labsym.is_used then