paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* overflow check abs(...) for x86

Browse Source
This commit is contained in:
florian 2024-03-14 23:14:26 +01:00
parent f1c4f0c879
commit 2a46596edd
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/x86/nx86inl.pas
View File

@ -1074,6 +1074,7 @@ implementation
hregister : tregister;
opsize : tcgsize;
hp : taicpu;
hl: TAsmLabel;
begin
{$if defined(i8086) or defined(i386)}
if not(CPUX86_HAS_CMOV in cpu_capabilities[current_settings.cputype]) then
@ -1099,9 +1100,19 @@ implementation
location.register:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,opsize,opsize,left.location.register,hregister);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,opsize,opsize,left.location.register,location.register);
cg.a_reg_alloc(current_asmdata.CurrAsmList, NR_DEFAULTFLAGS);
emit_reg(A_NEG,tcgsize2opsize[opsize],hregister);
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;
hp:=taicpu.op_reg_reg(A_CMOVcc,tcgsize2opsize[opsize],hregister,location.register);
hp.condition:=C_NS;
cg.a_reg_dealloc(current_asmdata.CurrAsmList, NR_DEFAULTFLAGS);
current_asmdata.CurrAsmList.concat(hp);
end;
end;