Просмотр исходного кода

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

git-svn-id: branches/z80@45106 -
nickysn 5 лет назад
Родитель
Сommit
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_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 maybegetcpuregister(list : tasmlist; reg : tregister);
       end;
 
       tcg64fz80 = class(tcg64f32)
@@ -1391,14 +1390,6 @@ unit cgcpu;
        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;
         const refopertypes: trefoperandtypes; out allocatedregs: tregisterlist): treference;
       var