1 /* $NetBSD: unorddf2.c,v 1.1 2003/05/06 08:58:19 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 #include <sys/cdefs.h>
12 #if defined(LIBC_SCCS) && !defined(lint)
13 __RCSID("$NetBSD: unorddf2.c,v 1.1 2003/05/06 08:58:19 rearnsha Exp $");
14 #endif /* LIBC_SCCS and not lint */
15 
16 flag __unorddf2(float64, float64);
17 
18 flag
__unorddf2(float64 a,float64 b)19 __unorddf2(float64 a, float64 b)
20 {
21           /*
22            * The comparison is unordered if either input is a NaN.
23            * Test for this by comparing each operand with itself.
24            * We must perform both comparisons to correctly check for
25            * signalling NaNs.
26            */
27           return 1 ^ (float64_eq(a, a) & float64_eq(b, b));
28 }
29