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

* MIPS: don't generate FPU code for abs(real), sqr(real) and sqrt(real) in case

Browse Source 
FPU emulation is enabled
This commit is contained in:
Nikolay Nikolov 2024-09-29 20:48:33 +03:00
parent 44c8193cfa
commit bf7bf44727
1 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/mips/ncpuinln.pas
View File

@ -46,7 +46,7 @@ implementation
uses uses
systems, systems,
globtype, globtype,globals,
cutils, verbose, cutils, verbose,
symconst, symdef, symconst, symdef,
aasmtai, aasmcpu, aasmdata, aasmtai, aasmcpu, aasmdata,
@ -74,22 +74,37 @@ end;
function tMIPSELinlinenode.first_abs_real: tnode; function tMIPSELinlinenode.first_abs_real: tnode;
begin begin
expectloc := LOC_FPUREGISTER; if not (cs_fp_emulation in current_settings.moduleswitches) then
first_abs_real := nil; begin
expectloc := LOC_FPUREGISTER;
first_abs_real := nil;
end
else
result:=inherited;
end; end;
function tMIPSELinlinenode.first_sqr_real: tnode; function tMIPSELinlinenode.first_sqr_real: tnode;
begin begin
expectloc := LOC_FPUREGISTER; if not (cs_fp_emulation in current_settings.moduleswitches) then
first_sqr_real := nil; begin
expectloc := LOC_FPUREGISTER;
first_sqr_real := nil;
end
else
result:=inherited;
end; end;
function tMIPSELinlinenode.first_sqrt_real: tnode; function tMIPSELinlinenode.first_sqrt_real: tnode;
begin begin
expectloc := LOC_FPUREGISTER; if not (cs_fp_emulation in current_settings.moduleswitches) then
first_sqrt_real := nil; begin
expectloc := LOC_FPUREGISTER;
first_sqrt_real := nil;
end
else
result:=inherited;
end; end;