paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 09:49:08 +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; procedure TSdccSdasZ80Assembler.WriteOper(const o: toper; s: topsize;
opcode: tasmop; ops: longint; dest: boolean); opcode: tasmop; ops: longint; dest: boolean);
begin var
case o.typ of need_plus: Boolean;
top_reg : begin
writer.AsmWrite(std_regname(o.reg)); case o.typ of
top_const : top_reg :
begin writer.AsmWrite(std_regname(o.reg));
{ if (ops=1) and (opcode<>A_RET) then top_const :
writer.AsmWrite(sizestr(s,dest));} begin
writer.AsmWrite('#'+tostr(longint(o.val))); { if (ops=1) and (opcode<>A_RET) then
end; writer.AsmWrite(sizestr(s,dest));}
else writer.AsmWrite('#'+tostr(longint(o.val)));
internalerror(10001); 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;
end;
procedure TSdccSdasZ80Assembler.WriteTree(p: TAsmList); procedure TSdccSdasZ80Assembler.WriteTree(p: TAsmList);