* Fixed loading of single floating point values from memory to register for ARM hardfloat.

git-svn-id: trunk@10826 -

compiler/arm/cgcpu.pas

@@ -1140,7 +1140,7 @@ unit cgcpu;
        var
          oppostfix:toppostfix;
        begin
-         case tosize of
+         case fromsize of
            OS_32,
            OS_F32:
              oppostfix:=PF_S;
@@ -1153,6 +1153,8 @@ unit cgcpu;
              InternalError(200309021);
          end;
          handle_load_store(list,A_LDF,oppostfix,reg,ref);
+         if fromsize<>tosize then
+           a_loadfpu_reg_reg(list,fromsize,tosize,reg,reg);
        end;