paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 06:40:05 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/i386/n386inl.pas
View File

@ -123,6 +123,8 @@ implementation
procedure ti386inlinenode.second_abs_long; procedure ti386inlinenode.second_abs_long;
var
hl: TAsmLabel;
begin begin
if is_64bitint(left.resultdef) then if is_64bitint(left.resultdef) then
begin 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); 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_SUB,S_L,left.location.register64.reghi,location.register64.reglo);
emit_reg_reg(A_SBB,S_L,left.location.register64.reghi,location.register64.reghi); 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 end
else else
inherited second_abs_long; inherited second_abs_long;