mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-27 19:10:14 +02:00
* x86-64 can handle overflows in 64 bit multiplications directly, part of resolving #39450
This commit is contained in:
parent
65ef6f1f37
commit
5bddb3a435
@ -30,8 +30,9 @@ interface
|
|||||||
|
|
||||||
type
|
type
|
||||||
tx8664addnode = class(tx86addnode)
|
tx8664addnode = class(tx86addnode)
|
||||||
procedure second_addordinal; override;
|
function use_generic_mul64bit: boolean; override;
|
||||||
procedure second_mul;
|
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
|
||||||
*****************************************************************************}
|
*****************************************************************************}
|
||||||
|
Loading…
Reference in New Issue
Block a user