paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 15:30:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed GetLoad and GetStore from tcgz80. These came from AVR and I don't think they would be useful

Browse Source 
for Z80.

git-svn-id: branches/z80@44512 -
This commit is contained in:
nickysn 2020-04-02 02:20:34 +00:00
parent c02fc4a49f
commit 20cd3a6d1b
1 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/z80/cgcpu.pas
View File

@ -97,8 +97,6 @@ unit cgcpu;
procedure emit_mov(list: TAsmList;reg2: tregister; reg1: tregister);
procedure a_adjust_sp(list: TAsmList; value: longint);
function GetLoad(const ref : treference) : tasmop;
function GetStore(const ref: treference): tasmop;
protected
procedure a_op_reg_reg_internal(list: TAsmList; Op: TOpCG; size: TCGSize; src, srchi, dst, dsthi: TRegister);
@ -1397,28 +1395,6 @@ unit cgcpu;
end;
function tcgz80.GetLoad(const ref: treference) : tasmop;
begin
//if (ref.base=NR_NO) and (ref.index=NR_NO) then
// result:=A_LDS
//else if (ref.base<>NR_NO) and (ref.offset<>0) then
// result:=A_LDD
//else
// result:=A_LD;
end;
function tcgz80.GetStore(const ref: treference) : tasmop;
begin
//if (ref.base=NR_NO) and (ref.index=NR_NO) then
// result:=A_STS
//else if (ref.base<>NR_NO) and (ref.offset<>0) then
// result:=A_STD
//else
// result:=A_ST;
end;
procedure tcgz80.g_proc_entry(list : TAsmList;localsize : longint;nostackframe:boolean);
var
regs : tcpuregisterset;