paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:39:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ avr: overflow checking for abs, together with the other recent abs-related commits, resolves #40694

Browse Source
This commit is contained in:
florian 2024-04-02 19:01:42 +02:00
parent b00e9543a7
commit e7716dc05f
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/avr/navrinl.pas
View File

@ -40,7 +40,7 @@ unit navrinl;
implementation
uses
verbose,
verbose,globtype,globals,
constexp,
compinnr,
aasmdata,
@ -57,19 +57,23 @@ unit navrinl;
var
hl: TAsmLabel;
size: TCgSize;
dummyloc: tlocation;
begin
secondpass(left);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
location:=left.location;
location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,left.resultdef);
location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,resultdef);
size:=def_cgsize(left.resultdef);
size:=def_cgsize(resultdef);
current_asmdata.getjumplabel(hl);
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,size,OC_GTE,0,left.location.register,hl);
cg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_NEG,size,left.location.register,location.register);
if cs_check_overflow in current_settings.localswitches then
cg.g_overflowcheck(current_asmdata.CurrAsmList,dummyloc,resultdef);
cg.a_label(current_asmdata.CurrAsmList,hl);
end;