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

- removed tcgz80.maybegetcpuregister, because it isn't used

Browse Source 
git-svn-id: branches/z80@45106 -
This commit is contained in:
nickysn 2020-04-26 16:38:29 +00:00
parent 05ca71133f
commit ab6d9e9df9
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/z80/cgcpu.pas
View File

@ -120,7 +120,6 @@ unit cgcpu;
procedure a_op_reg_reg_internal(list: TAsmList; Op: TOpCG; size: TCGSize; src, srchi, dst, dsthi: TRegister);
procedure a_op_const_reg_internal(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg, reghi: TRegister);
procedure gen_multiply(list: TAsmList; op: topcg; size: TCgSize; src2, src1, dst: tregister; check_overflow: boolean);
procedure maybegetcpuregister(list : tasmlist; reg : tregister);
end;
tcg64fz80 = class(tcg64f32)
@ -1391,14 +1390,6 @@ unit cgcpu;
end;
procedure tcgz80.maybegetcpuregister(list:tasmlist;reg : tregister);
begin
{ allocate the register only, if a cpu register is passed }
if getsupreg(reg)<first_int_imreg then
getcpuregister(list,reg);
end;
function tcgz80.normalize_ref(list: TAsmList; ref: treference;
const refopertypes: trefoperandtypes; out allocatedregs: tregisterlist): treference;
var