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

+ set pi_do_call on RiscV as well if we check for fpu exceptions

Browse Source
This commit is contained in:
florian 2024-02-16 22:48:01 +01:00
parent ae121a2d5e
commit a736a4bba7
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/riscv/nrvadd.pas
View File

@ -303,6 +303,14 @@ implementation
else
Result:=inherited pass_1;
{ if the result is not nil, a new node has been generated and the current node will be discarted }
if Result=nil then
begin
if left.resultdef.typ=floatdef then
if needs_check_for_fpu_exceptions then
Include(current_procinfo.flags,pi_do_call);
end;
if expectloc=LOC_FLAGS then
expectloc:=LOC_REGISTER;
if (expectloc=LOC_JUMP)

11
compiler/riscv/nrvinl.pas
View File

@ -65,6 +65,7 @@ implementation
aasmtai,aasmdata,aasmcpu,
symconst,symdef,
defutil,
procinfo,
cgbase,pass_2,
cpuinfo,ncgutil,
hlcgobj,cgutils,cgobj,rgobj,tgobj;
@ -80,6 +81,8 @@ implementation
begin
expectloc:=LOC_FPUREGISTER;
first_sqrt_real := nil;
if needs_check_for_fpu_exceptions then
Include(current_procinfo.flags,pi_do_call);
end
else
result:=inherited first_sqrt_real;
@ -104,6 +107,8 @@ implementation
begin
expectloc:=LOC_FPUREGISTER;
first_sqr_real := nil;
if needs_check_for_fpu_exceptions then
Include(current_procinfo.flags,pi_do_call);
end
else
result:=inherited first_sqr_real;
@ -116,6 +121,8 @@ implementation
begin
expectloc:=LOC_FPUREGISTER;
first_round_real := nil;
if needs_check_for_fpu_exceptions then
Include(current_procinfo.flags,pi_do_call);
end
else
result:=inherited first_round_real;
@ -128,6 +135,8 @@ implementation
begin
expectloc:=LOC_FPUREGISTER;
first_trunc_real := nil;
if needs_check_for_fpu_exceptions then
Include(current_procinfo.flags,pi_do_call);
end
else
result:=inherited first_trunc_real;
@ -136,6 +145,8 @@ implementation
function trvinlinenode.first_fma: tnode;
begin
if needs_check_for_fpu_exceptions then
Include(current_procinfo.flags,pi_do_call);
Result:=nil;
end;