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

- cleaned up unused local variables and procedures from tcgz80.a_op_const_reg_internal and tcgz80.a_op_reg_reg_internal

Browse Source 
git-svn-id: branches/z80@44670 -
This commit is contained in:
nickysn 2020-04-09 22:01:07 +00:00
parent 0e257a2c9f
commit 5aca5937e6
1 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/z80/cgcpu.pas
View File

@ -564,13 +564,7 @@ unit cgcpu;
procedure tcgz80.a_op_reg_reg_internal(list : TAsmList; Op: TOpCG; size: TCGSize; src, srchi, dst, dsthi: TRegister); procedure tcgz80.a_op_reg_reg_internal(list : TAsmList; Op: TOpCG; size: TCGSize; src, srchi, dst, dsthi: TRegister);
var var
countreg,
tmpreg,tmpreg2: tregister;
i : integer; i : integer;
instr : taicpu;
paraloc1,paraloc2,paraloc3 : TCGPara;
l1,l2 : tasmlabel;
pd : tprocdef;
procedure NextSrcDst; procedure NextSrcDst;
begin begin
@ -586,14 +580,10 @@ unit cgcpu;
end; end;
end; end;
{ iterates TmpReg through all registers of dst } var
procedure NextTmp; tmpreg,tmpreg2: tregister;
begin instr : taicpu;
if i=5 then l1,l2 : tasmlabel;
tmpreg:=dsthi
else
tmpreg:=GetNextReg(tmpreg);
end;
begin begin
case op of case op of
@ -802,11 +792,7 @@ unit cgcpu;
size: TCGSize; a: tcgint; reg, reghi: TRegister); size: TCGSize; a: tcgint; reg, reghi: TRegister);
var var
mask : qword; i : byte;
shift : byte;
i,j : byte;
tmpreg : tregister;
tmpreg64 : tregister64;
procedure NextReg; procedure NextReg;
begin begin
@ -817,10 +803,14 @@ unit cgcpu;
end; end;
var var
mask : qword;
shift : byte;
curvalue : byte; curvalue : byte;
tmpop: TAsmOp; tmpop: TAsmOp;
l1: TAsmLabel; l1: TAsmLabel;
instr: taicpu; instr: taicpu;
tmpreg : tregister;
tmpreg64 : tregister64;
begin begin
optimize_op_const(size,op,a); optimize_op_const(size,op,a);