|
@@ -30,8 +30,9 @@ interface
|
|
|
|
|
|
type
|
|
type
|
|
tx8664addnode = class(tx86addnode)
|
|
tx8664addnode = class(tx86addnode)
|
|
- procedure second_addordinal; override;
|
|
|
|
- procedure second_mul;
|
|
|
|
|
|
+ function use_generic_mul64bit: boolean; override;
|
|
|
|
+ procedure second_addordinal; override;
|
|
|
|
+ procedure second_mul;
|
|
end;
|
|
end;
|
|
|
|
|
|
implementation
|
|
implementation
|
|
@@ -43,6 +44,11 @@ interface
|
|
cgbase,cgutils,cga,cgobj,hlcgobj,cgx86,
|
|
cgbase,cgutils,cga,cgobj,hlcgobj,cgx86,
|
|
tgobj;
|
|
tgobj;
|
|
|
|
|
|
|
|
+ function tx8664addnode.use_generic_mul64bit: boolean;
|
|
|
|
+ begin
|
|
|
|
+ result:=false;
|
|
|
|
+ end;
|
|
|
|
+
|
|
{*****************************************************************************
|
|
{*****************************************************************************
|
|
Addordinal
|
|
Addordinal
|
|
*****************************************************************************}
|
|
*****************************************************************************}
|