Browse Source

* fix tarminlinenode.first_sqrt_real

git-svn-id: trunk@42685 -
florian 6 years ago
parent
commit
3a1ecd4f16
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/arm/narminl.pas

+ 2 - 2
compiler/arm/narminl.pas

@@ -179,9 +179,9 @@ implementation
               fpu_fpa10,
               fpu_fpa11:
                 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
+                expectloc:=LOC_MMREGISTER
+              else if FPUARM_HAS_VFP_SINGLE_ONLY in fpu_capabilities[current_settings.fputype] then
                 begin
                   if tfloatdef(left.resultdef).floattype=s32real then
                     expectloc:=LOC_MMREGISTER