|
@@ -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;
|