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

+ abs(long/int64): overflow checking for xtensa implemented

Browse Source
This commit is contained in:
florian 2024-03-30 20:29:48 +01:00
parent c17cbbe788
commit a90691435b
1 changed files with 17 additions and 0 deletions

17
compiler/xtensa/ncpuinl.pas
View File

@ -58,13 +58,30 @@ unit ncpuinl;
cpubase;
procedure tcpuinlinenode.second_abs_long;
var
hl: TAsmLabel;
begin
if is_64bitint(resultdef) then
begin
inherited second_abs_long;
exit;
end;
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);
if cs_check_overflow in current_settings.localswitches then
begin
current_asmdata.getjumplabel(hl);
hlcg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,resultdef,OC_NE,$80000000,left.location.register,hl);
hlcg.g_call_system_proc(current_asmdata.CurrAsmList,'fpc_overflow',[],nil).resetiftemp;
hlcg.a_label(current_asmdata.CurrAsmList,hl);
end;
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_ABS,location.register,left.location.register));
end;