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

* fixed warnings in Z80 cgcpu

Browse Source 
git-svn-id: branches/z80@44829 -
This commit is contained in:
nickysn 2020-04-19 04:44:26 +00:00
parent 44d4b5ea83
commit 8a5757e72b
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/z80/cgcpu.pas
View File

@ -46,6 +46,7 @@ unit cgcpu;
function getaddressregister(list:TAsmList):TRegister;override;
function GetOffsetReg(const r: TRegister;ofs : shortint): TRegister;override;
function GetOffsetReg64(const r,rhi: TRegister;ofs : shortint): TRegister;override;
procedure a_load_const_cgpara(list : TAsmList;size : tcgsize;a : tcgint;const paraloc : TCGPara);override;
@ -167,6 +168,16 @@ unit cgcpu;
end;
function tcgz80.GetOffsetReg(const r: TRegister; ofs: shortint): TRegister;
var
i: Integer;
begin
result:=r;
for i:=1 to ofs do
result:=GetNextReg(result);
end;
function tcgz80.GetOffsetReg64(const r, rhi: TRegister; ofs: shortint): TRegister;
var
i: Integer;
@ -735,6 +746,8 @@ unit cgcpu;
list.concat(taicpu.op_reg(A_RLC,dst));
list.concat(taicpu.op_reg(A_RRC,dst));
end;
else
;
end;
cg.a_label(list,l1);
case op of
@ -1918,7 +1931,7 @@ unit cgcpu;
end;
procedure tcgz80.g_overflowCheck(list : TAsmList;const l : tlocation;def : tdef);
procedure tcgz80.g_overflowcheck(list: TAsmList; const l: tlocation; def: tdef);
var
hl : tasmlabel;
ai : taicpu;