Merged revisions 10826,10829 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r10826 | yury | 2008-04-27 23:47:52 +0300 (Вс, 27 апр 2008) | 1 line
  
  * Fixed loading of single floating point values from memory to register for ARM hardfloat.
........
  r10829 | yury | 2008-04-28 00:03:57 +0300 (Пн, 28 апр 2008) | 1 line
  
  * Adjust precision checks for arm.
........

git-svn-id: branches/fixes_2_2@10831 -

compiler/arm/cgcpu.pas

@@ -1110,7 +1110,7 @@ unit cgcpu;
        var
          oppostfix:toppostfix;
        begin
-         case tosize of
+         case fromsize of
            OS_32,
            OS_F32:
              oppostfix:=PF_S;
@@ -1123,6 +1123,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;
 
 

tests/test/units/math/ttrig1.pp

@@ -88,7 +88,7 @@ for i:=1 to 8 do
   Ref := i*10;
   Value := arctan(tan(i*10/float(180)*pi))/pi*float(180);
   Delta := Value - Ref;
-  if Abs(Delta) > 1E-14 then
+  if Abs(Delta) > {$ifdef cpuarm} 1E-13 {$else} 1E-14 {$endif} then
     begin
       writeln('  Error for ArcTan(',i*10,') was:',Value,' should be:',Ref);
       halt(1);
@@ -101,7 +101,7 @@ for i:=-1 downto -8 do
   Ref := i*10;
   Value := arctan(tan(i*10/float(180)*pi))/pi*float(180);
   Delta := Value - Ref;
-  if Abs(Delta) > 1E-14 then
+  if Abs(Delta) > {$ifdef cpuarm} 1E-13 {$else} 1E-14 {$endif} then
     begin
       writeln('  Error for ArcTan(',i*10,') was:',Value,' should be:',Ref);
       halt(1);