Sfoglia il codice sorgente

- removed GetLoad and GetStore from tcgz80. These came from AVR and I don't think they would be useful
for Z80.

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

nickysn 5 anni fa
parent
commit
20cd3a6d1b
1 ha cambiato i file con 0 aggiunte e 24 eliminazioni
  1. 0 24
      compiler/z80/cgcpu.pas

+ 0 - 24
compiler/z80/cgcpu.pas

@@ -97,8 +97,6 @@ unit cgcpu;
         procedure emit_mov(list: TAsmList;reg2: tregister; reg1: tregister);
 
         procedure a_adjust_sp(list: TAsmList; value: longint);
-        function GetLoad(const ref : treference) : tasmop;
-        function GetStore(const ref: treference): tasmop;
 
       protected
         procedure a_op_reg_reg_internal(list: TAsmList; Op: TOpCG; size: TCGSize; src, srchi, dst, dsthi: TRegister);
@@ -1397,28 +1395,6 @@ unit cgcpu;
       end;
 
 
-    function tcgz80.GetLoad(const ref: treference) : tasmop;
-      begin
-        //if (ref.base=NR_NO) and (ref.index=NR_NO) then
-        //  result:=A_LDS
-        //else if (ref.base<>NR_NO) and (ref.offset<>0) then
-        //  result:=A_LDD
-        //else
-        //  result:=A_LD;
-      end;
-
-
-    function tcgz80.GetStore(const ref: treference) : tasmop;
-      begin
-        //if (ref.base=NR_NO) and (ref.index=NR_NO) then
-        //  result:=A_STS
-        //else if (ref.base<>NR_NO) and (ref.offset<>0) then
-        //  result:=A_STD
-        //else
-        //  result:=A_ST;
-      end;
-
-
     procedure tcgz80.g_proc_entry(list : TAsmList;localsize : longint;nostackframe:boolean);
       var
          regs : tcpuregisterset;