- removed GetByteLoc, because it isn't used

git-svn-id: branches/z80@45113 -

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;