Browse Source

+ Xtensa: tcgcpu.a_op_const_reg_reg

git-svn-id: trunk@44340 -
florian 5 years ago
parent
commit
637ede6879
1 changed files with 7 additions and 0 deletions
  1. 7 0
      compiler/xtensa/cgcpu.pas

+ 7 - 0
compiler/xtensa/cgcpu.pas

@@ -52,6 +52,7 @@ interface
         procedure a_op_reg_reg(list: TAsmList; op: topcg; size: tcgsize; src, dst: tregister);override;
         procedure a_op_const_reg(list: TAsmList; op: topcg; size: tcgsize; a: tcgint; reg: tregister);override;
         procedure a_op_reg_reg_reg(list: TAsmList; op: topcg; size: tcgsize; src1, src2, dst: tregister);override;
+        procedure a_op_const_reg_reg(list : TAsmList; op : TOpCg; size : tcgsize; a : tcgint; src,dst : tregister);override;
 
         procedure a_call_name(list:TAsmList;const s:string; weak: boolean);override;
         procedure a_call_reg(list:TAsmList;Reg:tregister);override;
@@ -420,6 +421,12 @@ implementation
       end;
 
 
+    procedure tcgcpu.a_op_const_reg_reg(list: TAsmList; op: TOpCg; size: tcgsize; a: tcgint; src, dst: tregister);
+      begin
+        list.Concat(taicpu.op_none(A_NOP));
+      end;
+
+
     procedure tcgcpu.a_op_const_reg(list : TAsmList; op : topcg; size : tcgsize; a : tcgint; reg : tregister);
       begin
         a_op_const_reg_reg(list,op,size,a,reg,reg);