|
@@ -88,8 +88,8 @@ unit cgcpu;
|
|
end;
|
|
end;
|
|
|
|
|
|
tcg64f68k = class(tcg64f32)
|
|
tcg64f68k = class(tcg64f32)
|
|
- procedure a_op64_reg_reg(list : taasmoutput;op:TOpCG;regsrc,regdst : tregister64);override;
|
|
|
|
- procedure a_op64_const_reg(list : taasmoutput;op:TOpCG;value : int64;regdst : tregister64);override;
|
|
|
|
|
|
+ procedure a_op64_reg_reg(list : taasmoutput;op:TOpCG; size: tcgsize; regsrc,regdst : tregister64);override;
|
|
|
|
+ procedure a_op64_const_reg(list : taasmoutput;op:TOpCG; size: tcgsize; value : int64;regdst : tregister64);override;
|
|
end;
|
|
end;
|
|
|
|
|
|
{ This function returns true if the reference+offset is valid.
|
|
{ This function returns true if the reference+offset is valid.
|
|
@@ -1200,7 +1200,7 @@ unit cgcpu;
|
|
{****************************************************************************}
|
|
{****************************************************************************}
|
|
{ TCG64F68K }
|
|
{ TCG64F68K }
|
|
{****************************************************************************}
|
|
{****************************************************************************}
|
|
- procedure tcg64f68k.a_op64_reg_reg(list : taasmoutput;op:TOpCG;regsrc,regdst : tregister64);
|
|
|
|
|
|
+ procedure tcg64f68k.a_op64_reg_reg(list : taasmoutput;op:TOpCG;size: tcgsize; regsrc,regdst : tregister64);
|
|
var
|
|
var
|
|
hreg1, hreg2 : tregister;
|
|
hreg1, hreg2 : tregister;
|
|
opcode : tasmop;
|
|
opcode : tasmop;
|
|
@@ -1262,7 +1262,7 @@ unit cgcpu;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
- procedure tcg64f68k.a_op64_const_reg(list : taasmoutput;op:TOpCG;value : int64;regdst : tregister64);
|
|
|
|
|
|
+ procedure tcg64f68k.a_op64_const_reg(list : taasmoutput;op:TOpCG;size: tcgsize; value : int64;regdst : tregister64);
|
|
var
|
|
var
|
|
lowvalue : cardinal;
|
|
lowvalue : cardinal;
|
|
highvalue : cardinal;
|
|
highvalue : cardinal;
|