paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 06:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* overflow checking for ti386inlinenode.second_abs_long

Browse Source
This commit is contained in:
florian 2024-03-17 10:24:05 +01:00
parent 7c95ff434b
commit 316e127948
1 changed files with 9 additions and 0 deletions

9
compiler/i386/n386inl.pas
View File

@ -123,6 +123,8 @@ implementation
procedure ti386inlinenode.second_abs_long;
var
hl: TAsmLabel;
begin
if is_64bitint(left.resultdef) then
begin
@ -137,6 +139,13 @@ implementation
cg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_XOR,OS_32,left.location.register64.reghi,location.register64.reghi);
emit_reg_reg(A_SUB,S_L,left.location.register64.reghi,location.register64.reglo);
emit_reg_reg(A_SBB,S_L,left.location.register64.reghi,location.register64.reghi);
if cs_check_overflow in current_settings.localswitches then
begin
current_asmdata.getjumplabel(hl);
cg.a_jmp_flags(current_asmdata.CurrAsmList,F_NO,hl);
cg.a_call_name(current_asmdata.CurrAsmList,'FPC_OVERFLOW',false);
cg.a_label(current_asmdata.CurrAsmList,hl);
end;
end
else
inherited second_abs_long;