paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ initial implementation of top_ref reference output for sdcc-sdasz80

Browse Source 
git-svn-id: branches/z80@44497 -
This commit is contained in:
nickysn 2020-04-01 22:08:22 +00:00
parent b1ea62f5f6
commit fe5daf3d2f
1 changed files with 53 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
compiler/z80/agsdasz80.pas
View File

@ -307,20 +307,60 @@ unit agsdasz80;
procedure TSdccSdasZ80Assembler.WriteOper(const o: toper; s: topsize;
opcode: tasmop; ops: longint; dest: boolean);
begin
case o.typ of
top_reg :
writer.AsmWrite(std_regname(o.reg));
top_const :
begin
{ if (ops=1) and (opcode<>A_RET) then
writer.AsmWrite(sizestr(s,dest));}
writer.AsmWrite('#'+tostr(longint(o.val)));
end;
else
internalerror(10001);
var
need_plus: Boolean;
begin
case o.typ of
top_reg :
writer.AsmWrite(std_regname(o.reg));
top_const :
begin
{ if (ops=1) and (opcode<>A_RET) then
writer.AsmWrite(sizestr(s,dest));}
writer.AsmWrite('#'+tostr(longint(o.val)));
end;
top_ref:
begin
writer.AsmWrite('(');
need_plus:=false;
if o.ref^.base<>NR_NO then
begin
if o.ref^.index<>NR_NO then
internalerror(2020040201);
writer.AsmWrite(std_regname(o.ref^.base));
need_plus:=true;
end
else if o.ref^.index<>NR_NO then
begin
if o.ref^.scalefactor>1 then
internalerror(2020040202);
writer.AsmWrite(std_regname(o.ref^.index));
need_plus:=true;
end;
if assigned(o.ref^.symbol) then
begin
{if SmartAsm then
AddSymbol(o.ref^.symbol.name,false);}
if need_plus then
writer.AsmWrite('+');
writer.AsmWrite(o.ref^.symbol.name);
need_plus:=true;
end;
if o.ref^.offset>0 then
begin
if need_plus then
writer.AsmWrite('+');
writer.AsmWrite(tostr(o.ref^.offset));
need_plus:=true;
end;
if not need_plus then
writer.AsmWrite('0');
writer.AsmWrite(')');
end;
else
internalerror(10001);
end;
end;
end;
procedure TSdccSdasZ80Assembler.WriteTree(p: TAsmList);