From 96ac7f29f7ccf21a55fe34dd90b511076b6f706e Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 9 Jul 2020 22:51:42 +0000
Subject: [PATCH]  Only try to use softfpu functions when fputype is fpu_soft

git-svn-id: trunk@45751 -
---
 compiler/arm/narmcnv.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/arm/narmcnv.pas b/compiler/arm/narmcnv.pas
index 0d3dc9ae0e..5c4c0d4d4e 100644
--- a/compiler/arm/narmcnv.pas
+++ b/compiler/arm/narmcnv.pas
@@ -113,8 +113,8 @@ implementation
 
     function tarmtypeconvnode.first_real_to_real: tnode;
       begin
-        if not(FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) and
-          not (target_info.system in systems_wince) then
+        if (current_settings.fputype=fpu_soft) and
+           not (target_info.system in systems_wince) then
           begin
             case tfloatdef(left.resultdef).floattype of
               s32real: