Browse Source

* Two more "&& vs &" porting bugs fixed.

git-svn-id: trunk@27364 -
sergei 11 years ago
parent
commit
20cc82dfea
1 changed files with 3 additions and 3 deletions
  1. 3 3
      rtl/inc/softfpu.pp

+ 3 - 3
rtl/inc/softfpu.pp

@@ -1779,7 +1779,7 @@ Function float32_is_signaling_nan( a : float32  ): flag;
 Begin
 Begin
 
 
     float32_is_signaling_nan := flag
     float32_is_signaling_nan := flag
-      ( ( ( a shr 22 ) and $1FF ) = $1FE ) and( a and $003FFFFF );
+      (( ( ( a shr 22 ) and $1FF ) = $1FE ) and (( a and $003FFFFF )<>0));
 
 
 End;
 End;
 
 
@@ -1895,8 +1895,8 @@ Function float64_is_nan( a : float64 ) : flag;
 Begin
 Begin
 
 
     float64_is_nan :=
     float64_is_nan :=
-           flag( $FFE00000 <= bits32 ( a.high shl 1 ) )
-        and ( a.low or ( a.high and $000FFFFF ) );
+           flag(( $FFE00000 <= bits32 ( a.high shl 1 ) )
+        and (( a.low or ( a.high and $000FFFFF ) )<>0));
 
 
 End;
 End;