diff --git a/compiler/z80/agsdasz80.pas b/compiler/z80/agsdasz80.pas index 663b8cad72..21371efa0c 100644 --- a/compiler/z80/agsdasz80.pas +++ b/compiler/z80/agsdasz80.pas @@ -242,14 +242,15 @@ unit agsdasz80; end; ait_symbol : begin - if tai_symbol(hp).has_value then - internalerror(2009090802); if tai_symbol(hp).is_global then begin writer.AsmWrite('.globl'#9); writer.AsmWriteln(tai_symbol(hp).sym.name); end; - writer.AsmWriteLn(tai_symbol(hp).sym.name + ':'); + if not(tai_symbol(hp).has_value) then + writer.AsmWriteLn(tai_symbol(hp).sym.name + ':') + else + writer.AsmWriteLn(tai_symbol(hp).sym.name + '=' + tostr(tai_symbol(hp).value)); end; ait_symbol_end : begin