paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 10:18:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* get rid of EscapeLabel, since sdcc-sdasz80 doesn't seem to need it

Browse Source 
git-svn-id: branches/z80@44452 -
This commit is contained in:
nickysn 2020-03-31 00:35:05 +00:00
parent a38917f471
commit a4127ce3ab
1 changed files with 6 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/z80/agsdasz80.pas
View File

@ -41,7 +41,6 @@ unit agsdasz80;
TSdccSdasZ80Assembler=class(TExternalAssembler)
private
function EscapeLabel(s: ansistring): ansistring;
procedure WriteDecodedSleb128(a: int64);
procedure WriteDecodedUleb128(a: qword);
public
@ -69,23 +68,6 @@ unit agsdasz80;
#9'.dw'#9,#9'FIXMEDD'#9,#9'FIXMEDQ'#9
);
function TSdccSdasZ80Assembler.EscapeLabel(s: ansistring): ansistring;
var
i: Integer;
begin
result:='';
for i:=1 to length(s) do
if ((s[i]>='a') and (s[i]<='z')) or
((s[i]>='A') and (s[i]<='Z')) or
((s[i]>='0') and (s[i]<='9')) or
(s[i]='.') then
result:=result+s[i]
else if s[i]='_' then
result:=result+'__'
else
result:=result+('_'+HexStr(Ord(s[i]),2));
end;
procedure TSdccSdasZ80Assembler.WriteDecodedSleb128(a: int64);
var
i,len : longint;
@ -249,7 +231,7 @@ unit agsdasz80;
begin
if tai_label(hp).labsym.is_used then
begin
writer.AsmWrite(EscapeLabel(tai_label(hp).labsym.name));
writer.AsmWrite(tai_label(hp).labsym.name);
writer.AsmWriteLn(':');
end;
end;
@ -273,7 +255,7 @@ unit agsdasz80;
end;}
{if tai_symbol(hp).is_global then
writer.AsmWriteLn(#9'PUBLIC'#9+tai_symbol(hp).sym.name);}
writer.AsmWrite(EscapeLabel(tai_symbol(hp).sym.name));
writer.AsmWrite(tai_symbol(hp).sym.name);
{if assigned(hp.next) and not(tai(hp.next).typ in
[ait_const,ait_realconst,ait_string]) then}
writer.AsmWriteLn(':');
@ -301,9 +283,9 @@ unit agsdasz80;
if assigned(tai_const(hp).sym) then
begin
if assigned(tai_const(hp).endsym) then
s:=EscapeLabel(tai_const(hp).endsym.name)+'-'+EscapeLabel(tai_const(hp).sym.name)
s:=tai_const(hp).endsym.name+'-'+tai_const(hp).sym.name
else
s:=EscapeLabel(tai_const(hp).sym.name);
s:=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
@ -348,9 +330,9 @@ unit agsdasz80;
if assigned(tai_const(hp).sym) then
begin
if assigned(tai_const(hp).endsym) then
s:=EscapeLabel(tai_const(hp).endsym.name)+'-'+EscapeLabel(tai_const(hp).sym.name)
s:=tai_const(hp).endsym.name+'-'+tai_const(hp).sym.name
else
s:=EscapeLabel(tai_const(hp).sym.name);
s:=tai_const(hp).sym.name;
if tai_const(hp).value<>0 then
s:=s+tostr_with_plus(tai_const(hp).value);
end