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

* tcg64favr renamed tcg64fz80

Browse Source 
git-svn-id: branches/z80@44504 -
This commit is contained in:
nickysn 2020-04-01 23:32:02 +00:00
parent 50e5b07568
commit 065a0d44d8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/z80/cgcpu.pas
View File

@ -106,7 +106,7 @@ unit cgcpu;
procedure maybegetcpuregister(list : tasmlist; reg : tregister);
end;
tcg64favr = class(tcg64f32)
tcg64fz80 = class(tcg64f32)
procedure a_op64_reg_reg(list : TAsmList;op:TOpCG;size : tcgsize;regsrc,regdst : tregister64);override;
procedure a_op64_const_reg(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;reg : tregister64);override;
end;
@ -1913,7 +1913,7 @@ unit cgcpu;
end;
procedure tcg64favr.a_op64_reg_reg(list : TAsmList;op:TOpCG;size : tcgsize;regsrc,regdst : tregister64);
procedure tcg64fz80.a_op64_reg_reg(list : TAsmList;op:TOpCG;size : tcgsize;regsrc,regdst : tregister64);
begin
if not(size in [OS_S64,OS_64]) then
internalerror(2012102402);
@ -1921,7 +1921,7 @@ unit cgcpu;
end;
procedure tcg64favr.a_op64_const_reg(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;reg : tregister64);
procedure tcg64fz80.a_op64_const_reg(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;reg : tregister64);
begin
tcgz80(cg).a_op_const_reg_internal(list,Op,size,value,reg.reglo,reg.reghi);
end;
@ -1958,7 +1958,7 @@ unit cgcpu;
procedure create_codegen;
begin
cg:=tcgz80.create;
cg64:=tcg64favr.create;
cg64:=tcg64fz80.create;
end;
end.