- removed GetByteLoc, because it isn't used

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@45113 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 0 insertions, 30 deletions

diff --git a/compiler/z80/cgcpu.pas b/compiler/z80/cgcpu.pas
index 5ea0511f57..481ea3d4a3 100644
--- a/compiler/z80/cgcpu.pas
+++ b/compiler/z80/cgcpu.pas
@@ -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;