浏览代码

- removed tcgz80.maybegetcpuregister, because it isn't used

git-svn-id: branches/z80@45106 -
nickysn 5 年之前
父节点
当前提交
ab6d9e9df9
共有 1 个文件被更改,包括 0 次插入9 次删除
  1. 0 9
      compiler/z80/cgcpu.pas

+ 0 - 9
compiler/z80/cgcpu.pas

@@ -120,7 +120,6 @@ unit cgcpu;
         procedure a_op_reg_reg_internal(list: TAsmList; Op: TOpCG; size: TCGSize; src, srchi, dst, dsthi: TRegister);
         procedure a_op_reg_reg_internal(list: TAsmList; Op: TOpCG; size: TCGSize; src, srchi, dst, dsthi: TRegister);
         procedure a_op_const_reg_internal(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg, reghi: TRegister);
         procedure a_op_const_reg_internal(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg, reghi: TRegister);
         procedure gen_multiply(list: TAsmList; op: topcg; size: TCgSize; src2, src1, dst: tregister; check_overflow: boolean);
         procedure gen_multiply(list: TAsmList; op: topcg; size: TCgSize; src2, src1, dst: tregister; check_overflow: boolean);
-        procedure maybegetcpuregister(list : tasmlist; reg : tregister);
       end;
       end;
 
 
       tcg64fz80 = class(tcg64f32)
       tcg64fz80 = class(tcg64f32)
@@ -1391,14 +1390,6 @@ unit cgcpu;
        end;
        end;
 
 
 
 
-    procedure tcgz80.maybegetcpuregister(list:tasmlist;reg : tregister);
-      begin
-        { allocate the register only, if a cpu register is passed }
-        if getsupreg(reg)<first_int_imreg then
-          getcpuregister(list,reg);
-      end;
-
-
     function tcgz80.normalize_ref(list: TAsmList; ref: treference;
     function tcgz80.normalize_ref(list: TAsmList; ref: treference;
         const refopertypes: trefoperandtypes; out allocatedregs: tregisterlist): treference;
         const refopertypes: trefoperandtypes; out allocatedregs: tregisterlist): treference;
       var
       var