* fixed conversion zero int64 to double in softfloat mode.

git-svn-id: trunk@8050 -

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 );