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

* fix tarminlinenode.first_sqrt_real

Browse Source 
git-svn-id: trunk@42685 -
This commit is contained in:
florian 2019-08-13 22:12:53 +00:00
parent 0a0397c9f5
commit 3a1ecd4f16
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/narminl.pas
View File

@ -179,9 +179,9 @@ implementation
fpu_fpa10, fpu_fpa10,
fpu_fpa11: fpu_fpa11:
expectloc:=LOC_FPUREGISTER; expectloc:=LOC_FPUREGISTER;
else if FPUARM_HAS_VFP_SINGLE_ONLY in fpu_capabilities[current_settings.fputype] then
expectloc:=LOC_MMREGISTER
else if FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype] then else if FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype] then
expectloc:=LOC_MMREGISTER
else if FPUARM_HAS_VFP_SINGLE_ONLY in fpu_capabilities[current_settings.fputype] then
begin begin
if tfloatdef(left.resultdef).floattype=s32real then if tfloatdef(left.resultdef).floattype=s32real then
expectloc:=LOC_MMREGISTER expectloc:=LOC_MMREGISTER