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

- removed GetByteLoc, because it isn't used

Browse Source 
git-svn-id: branches/z80@45113 -
This commit is contained in:
nickysn 2020-04-26 16:44:14 +00:00
parent ff0c771e2e
commit 723faf14a9
1 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/z80/cgcpu.pas
View File

@ -127,8 +127,6 @@ unit cgcpu;
procedure a_op64_const_reg(list : TAsmList;op:TOpCG;size : tcgsize;value : int64;reg : tregister64);override;
end;
function GetByteLoc(const loc : tlocation;nr : byte) : tlocation;
procedure create_codegen;
const
@ -2439,34 +2437,6 @@ unit cgcpu;
end;
function GetByteLoc(const loc : tlocation; nr : byte) : tlocation;
var
i : Integer;
begin
Result:=loc;
Result.size:=OS_8;
case loc.loc of
LOC_REFERENCE,LOC_CREFERENCE:
inc(Result.reference.offset,nr);
LOC_REGISTER,LOC_CREGISTER:
begin
if nr>=4 then
Result.register:=Result.register64.reghi;
nr:=nr mod 4;
for i:=1 to nr do
Result.register:=GetNextReg(Result.register);
end;
LOC_CONSTANT:
if loc.size in [OS_64,OS_S64] then
Result.value:=(Result.value64 shr (nr*8)) and $ff
else
Result.value:=(Result.value shr (nr*8)) and $ff;
else
Internalerror(2019020902);
end;
end;
procedure create_codegen;
begin
cg:=tcgz80.create;