|
@@ -31,7 +31,9 @@ interface
|
|
type
|
|
type
|
|
tSparcmoddivnode = class(tmoddivnode)
|
|
tSparcmoddivnode = class(tmoddivnode)
|
|
procedure pass_generate_code;override;
|
|
procedure pass_generate_code;override;
|
|
|
|
+{$ifdef SPARC64}
|
|
function use_moddiv64bitint_helper : boolean; override;
|
|
function use_moddiv64bitint_helper : boolean; override;
|
|
|
|
+{$endif SPARC64}
|
|
end;
|
|
end;
|
|
|
|
|
|
tSparcshlshrnode = class(tcgshlshrnode)
|
|
tSparcshlshrnode = class(tcgshlshrnode)
|