Merged revisions 8050 via svnmerge from

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

........
  r8050 | yury | 2007-07-14 21:45:00 +0300 (Сб, 14 июл 2007) | 1 line
  
  * fixed conversion zero int64 to double in softfloat mode.
........

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

rtl/inc/softfpu.pp

@@ -5083,7 +5083,7 @@ var
 Begin
     if ( a = 0 ) then
       Begin
-       packFloat64( 0, 0, 0, 0, float_result );
+       packFloat64( 0, 0, 0, 0, result );
        exit;
       end;
     zSign := flag( a < 0 );