compilers/pcc/pcc-libs-1.0.0/libsoftfloat/unordsf2.c

   1 /* $NetBSD: unordsf2.c,v 1.1 2003/05/06 08:58:20 rearnsha Exp $ */
   2
   3 /*
   4  * Written by Richard Earnshaw, 2003.  This file is in the Public Domain.
   5  */
   6
   7 #include "softfloat-for-gcc.h"
   8 #include "milieu.h"
   9 #include "softfloat.h"
  10
  11 flag __unordsf2(float32, float32);
  12
  13 flag
  14 __unordsf2(float32 a, float32 b)
  15 {
  16         /*
  17          * The comparison is unordered if either input is a NaN.
  18          * Test for this by comparing each operand with itself.
  19          * We must perform both comparisons to correctly check for
  20          * signalling NaNs.
  21          */
  22         return 1 ^ (float32_eq(a, a) & float32_eq(b, b));
  23 }