Home | History | Annotate | Line # | Download | only in softfloat 
      1  1.1  rearnsha /* $NetBSD: unorddf2.c,v 1.1 2003/05/06 08:58:19 rearnsha Exp $ */
      2  1.1  rearnsha 
      3  1.1  rearnsha /*
      4  1.1  rearnsha  * Written by Richard Earnshaw, 2003.  This file is in the Public Domain.
      5  1.1  rearnsha  */
      6  1.1  rearnsha 
      7  1.1  rearnsha #include "softfloat-for-gcc.h"
      8  1.1  rearnsha #include "milieu.h"
      9  1.1  rearnsha #include "softfloat.h"
     10  1.1  rearnsha 
     11  1.1  rearnsha #include <sys/cdefs.h>
     12  1.1  rearnsha #if defined(LIBC_SCCS) && !defined(lint)
     13  1.1  rearnsha __RCSID("$NetBSD: unorddf2.c,v 1.1 2003/05/06 08:58:19 rearnsha Exp $");
     14  1.1  rearnsha #endif /* LIBC_SCCS and not lint */
     15  1.1  rearnsha 
     16  1.1  rearnsha flag __unorddf2(float64, float64);
     17  1.1  rearnsha 
     18  1.1  rearnsha flag
     19  1.1  rearnsha __unorddf2(float64 a, float64 b)
     20  1.1  rearnsha {
     21  1.1  rearnsha 	/*
     22  1.1  rearnsha 	 * The comparison is unordered if either input is a NaN.
     23  1.1  rearnsha 	 * Test for this by comparing each operand with itself.
     24  1.1  rearnsha 	 * We must perform both comparisons to correctly check for
     25  1.1  rearnsha 	 * signalling NaNs.
     26  1.1  rearnsha 	 */
     27  1.1  rearnsha 	return 1 ^ (float64_eq(a, a) & float64_eq(b, b));
     28  1.1  rearnsha }
     29