|
@@ -80,7 +80,7 @@ implementation
|
|
|
|
|
|
procedure tSparcmoddivnode.pass_generate_code;
|
|
procedure tSparcmoddivnode.pass_generate_code;
|
|
const
|
|
const
|
|
- { 64 bit signed overflow }
|
|
|
|
|
|
+ { 64 bit signed overflow }
|
|
divops: array[boolean, boolean, boolean] of tasmop =
|
|
divops: array[boolean, boolean, boolean] of tasmop =
|
|
(((A_UDIV,A_UDIVcc),(A_SDIV,A_SDIVcc)),
|
|
(((A_UDIV,A_UDIVcc),(A_SDIV,A_SDIVcc)),
|
|
((A_UDIVX,A_NOP),(A_SDIVX,A_NOP))
|
|
((A_UDIVX,A_NOP),(A_SDIVX,A_NOP))
|
|
@@ -105,7 +105,7 @@ implementation
|
|
numerator := left.location.register;
|
|
numerator := left.location.register;
|
|
resultreg := location.register;
|
|
resultreg := location.register;
|
|
|
|
|
|
- if is_64bitint(resultdef) then
|
|
|
|
|
|
+ if is_64bit(resultdef) then
|
|
begin
|
|
begin
|
|
if (nodetype = divn) and
|
|
if (nodetype = divn) and
|
|
(right.nodetype = ordconstn) and
|
|
(right.nodetype = ordconstn) and
|