Browse Source

* Xtensa: dummy overflow checking

git-svn-id: trunk@44796 -
florian 5 years ago
parent
commit
3ec0437d5f
1 changed files with 9 additions and 1 deletions
  1. 9 1
      compiler/xtensa/cgcpu.pas

+ 9 - 1
compiler/xtensa/cgcpu.pas

@@ -75,9 +75,11 @@ interface
 
 
         procedure a_loadfpu_reg_reg(list: TAsmList; fromsize, tosize: tcgsize; reg1, reg2: tregister);override;
         procedure a_loadfpu_reg_reg(list: TAsmList; fromsize, tosize: tcgsize; reg1, reg2: tregister);override;
         procedure a_loadfpu_ref_reg(list: TAsmList; fromsize, tosize: tcgsize; const ref: treference; reg: tregister);override;
         procedure a_loadfpu_ref_reg(list: TAsmList; fromsize, tosize: tcgsize; const ref: treference; reg: tregister);override;
-        procedure a_loadfpu_reg_ref(list: TAsmList; fromsize, tosize: tcgsize; reg: tregister; const ref: treference); override;
+        procedure a_loadfpu_reg_ref(list: TAsmList; fromsize, tosize: tcgsize; reg: tregister; const ref: treference);override;
 
 
         procedure maybeadjustresult(list: TAsmList; op: TOpCg; size: tcgsize; dst: tregister);
         procedure maybeadjustresult(list: TAsmList; op: TOpCg; size: tcgsize; dst: tregister);
+
+        procedure g_overflowcheck(list: TAsmList; const Loc:tlocation; def:tdef);override;
       end;
       end;
 
 
       tcg64fxtensa = class(tcg64f32)
       tcg64fxtensa = class(tcg64f32)
@@ -1026,6 +1028,12 @@ implementation
       end;
       end;
 
 
 
 
+    procedure tcgcpu.g_overflowcheck(list: TAsmList; const Loc: tlocation; def: tdef);
+      begin
+        { no overflow checking yet }
+      end;
+
+
     procedure tcg64fxtensa.a_op64_reg_reg_reg(list: TAsmList;op:TOpCG;size : tcgsize;regsrc1,regsrc2,regdst : tregister64);
     procedure tcg64fxtensa.a_op64_reg_reg_reg(list: TAsmList;op:TOpCG;size : tcgsize;regsrc1,regsrc2,regdst : tregister64);
       var
       var
         signed: Boolean;
         signed: Boolean;