From b91269b8219f33f417613dc667556f80d84a26af Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 30 Mar 2020 02:24:27 +0000
Subject: [PATCH] + output unsupported aligns as comments (I don't think z80asm
 supports an align directive)

git-svn-id: branches/z80@44424 -
---
 compiler/z80/agz80asm.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/compiler/z80/agz80asm.pas b/compiler/z80/agz80asm.pas
index eabe756cf9..436214ba5e 100644
--- a/compiler/z80/agz80asm.pas
+++ b/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