+ apply ReplaceForbiddenAsmSymbolChars to all symbols in the SDCC-SDASZ80 assembler output

git-svn-id: branches/z80@45064 -

compiler/z80/agsdasz80.pas

@@ -349,9 +349,9 @@ unit agsdasz80;
                       ;
                   end;
                   if o.ref^.offset<>0 then
-                    writer.AsmWrite('('+o.ref^.symbol.name+'+'+tostr(o.ref^.offset)+')')
+                    writer.AsmWrite('('+ReplaceForbiddenAsmSymbolChars(o.ref^.symbol.name)+'+'+tostr(o.ref^.offset)+')')
                   else
-                    writer.AsmWrite(o.ref^.symbol.name);
+                    writer.AsmWrite(ReplaceForbiddenAsmSymbolChars(o.ref^.symbol.name));
                 end
               else if not assigned(o.ref^.symbol) and
                  ((o.ref^.base<>NR_NO) or (o.ref^.index<>NR_NO)) and
@@ -397,7 +397,7 @@ unit agsdasz80;
                         AddSymbol(o.ref^.symbol.name,false);}
                       if need_plus then
                         writer.AsmWrite('+');
-                      writer.AsmWrite(o.ref^.symbol.name);
+                      writer.AsmWrite(ReplaceForbiddenAsmSymbolChars(o.ref^.symbol.name));
                       need_plus:=true;
                     end;
                   if o.ref^.offset<>0 then
@@ -435,7 +435,7 @@ unit agsdasz80;
                 end
               else
                 begin
-                  writer.AsmWrite(o.ref^.symbol.name);
+                  writer.AsmWrite(ReplaceForbiddenAsmSymbolChars(o.ref^.symbol.name));
                   //if SmartAsm then
                   //  AddSymbol(o.ref^.symbol.name,false);
                   if o.ref^.offset>0 then
@@ -460,7 +460,7 @@ unit agsdasz80;
           begin
             sym:=TAsmSymbol(current_asmdata.AsmSymbolDict[i]);
             if sym.bind in [AB_EXTERNAL,AB_EXTERNAL_INDIRECT] then
-              writer.AsmWriteln(#9'.globl'#9+sym.name);
+              writer.AsmWriteln(#9'.globl'#9+ReplaceForbiddenAsmSymbolChars(sym.name));
           end;
         writer.AsmWriteln('; End externals');
       end;
@@ -632,7 +632,7 @@ unit agsdasz80;
               begin
                 if tai_label(hp).labsym.is_used then
                   begin
-                    writer.AsmWrite(tai_label(hp).labsym.name);
+                    writer.AsmWrite(ReplaceForbiddenAsmSymbolChars(tai_label(hp).labsym.name));
                     if tai_label(hp).labsym.bind in [AB_GLOBAL,AB_PRIVATE_EXTERN] then
                       writer.AsmWriteLn('::')
                     else
@@ -644,16 +644,16 @@ unit agsdasz80;
                 if not(tai_symbol(hp).has_value) then
                   begin
                     if tai_symbol(hp).is_global then
-                      writer.AsmWriteLn(tai_symbol(hp).sym.name + '::')
+                      writer.AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_symbol(hp).sym.name) + '::')
                     else
-                      writer.AsmWriteLn(tai_symbol(hp).sym.name + ':');
+                      writer.AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_symbol(hp).sym.name) + ':');
                   end
                 else
                   begin
                     if tai_symbol(hp).is_global then
-                      writer.AsmWriteLn(tai_symbol(hp).sym.name + '==' + tostr(tai_symbol(hp).value))
+                      writer.AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_symbol(hp).sym.name) + '==' + tostr(tai_symbol(hp).value))
                     else
-                      writer.AsmWriteLn(tai_symbol(hp).sym.name + '=' + tostr(tai_symbol(hp).value));
+                      writer.AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_symbol(hp).sym.name) + '=' + tostr(tai_symbol(hp).value));
                   end;
               end;
             ait_symbol_end :
@@ -662,9 +662,9 @@ unit agsdasz80;
             ait_datablock :
               begin
                 if tai_datablock(hp).is_global or SmartAsm then
-                  writer.AsmWrite(tai_datablock(hp).sym.name + '::')
+                  writer.AsmWrite(ReplaceForbiddenAsmSymbolChars(tai_datablock(hp).sym.name) + '::')
                 else
-                  writer.AsmWrite(tai_datablock(hp).sym.name + ':');
+                  writer.AsmWrite(ReplaceForbiddenAsmSymbolChars(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));
@@ -689,9 +689,9 @@ unit agsdasz80;
                         if assigned(tai_const(hp).sym) then
                           begin
                             if assigned(tai_const(hp).endsym) then
-                              s:=tai_const(hp).endsym.name+'-'+tai_const(hp).sym.name
+                              s:=ReplaceForbiddenAsmSymbolChars(tai_const(hp).endsym.name)+'-'+ReplaceForbiddenAsmSymbolChars(tai_const(hp).sym.name)
                             else
-                              s:=tai_const(hp).sym.name;
+                              s:=ReplaceForbiddenAsmSymbolChars(tai_const(hp).sym.name);
                             if tai_const(hp).value<>0 then
                               s:=s+tostr_with_plus(tai_const(hp).value);
                             if consttype in [aitconst_64bit,aitconst_64bit_unaligned] then
@@ -736,9 +736,9 @@ unit agsdasz80;
                         if assigned(tai_const(hp).sym) then
                           begin
                             if assigned(tai_const(hp).endsym) then
-                              s:=tai_const(hp).endsym.name+'-'+tai_const(hp).sym.name
+                              s:=ReplaceForbiddenAsmSymbolChars(tai_const(hp).endsym.name)+'-'+ReplaceForbiddenAsmSymbolChars(tai_const(hp).sym.name)
                             else
-                              s:=tai_const(hp).sym.name;
+                              s:=ReplaceForbiddenAsmSymbolChars(tai_const(hp).sym.name);
                             if tai_const(hp).value<>0 then
                               s:=s+tostr_with_plus(tai_const(hp).value);
                           end