* Fixed one of the C porting bugs (wonder how many are still left...)

git-svn-id: trunk@27184 -

rtl/inc/softfpu.pp

@@ -2712,11 +2712,11 @@ Procedure
           Begin
             if ( zSign )<> 0 then
               Begin
-                increment := flag( roundingMode = float_round_down ) and zSig2;
+                increment := flag(( roundingMode = float_round_down ) and (zSig2<>0));
               End
             else
               Begin
-                increment := flag( roundingMode = float_round_up ) and zSig2;
+                increment := flag(( roundingMode = float_round_up ) and (zSig2<>0));
               End
           End
       End;
@@ -2760,11 +2760,11 @@ Procedure
               Begin
                 if ( zSign )<>0 then
                   Begin
-                    increment := flag( roundingMode = float_round_down ) and zSig2;
+                    increment := flag(( roundingMode = float_round_down ) and (zSig2<>0);
                   End
                 else
                   Begin
-                    increment := flag( roundingMode = float_round_up ) and zSig2;
+                    increment := flag(( roundingMode = float_round_up ) and (zSig2<>0));
                   End
               End;
         End;