2001-03-06 08:17:54 +00:00
|
|
|
/* public domain rewrite of isnan(3) */
|
|
|
|
|
1999-08-13 05:45:20 +00:00
|
|
|
static int double_ne();
|
|
|
|
|
|
|
|
int
|
|
|
|
isnan(n)
|
2003-12-20 15:45:15 +00:00
|
|
|
double n;
|
1999-08-13 05:45:20 +00:00
|
|
|
{
|
2003-12-20 15:45:15 +00:00
|
|
|
return double_ne(n, n);
|
1999-08-13 05:45:20 +00:00
|
|
|
}
|
|
|
|
|
2003-12-20 15:45:15 +00:00
|
|
|
static int
|
1999-08-13 05:45:20 +00:00
|
|
|
double_ne(n1, n2)
|
2003-12-20 15:45:15 +00:00
|
|
|
double n1, n2;
|
1999-08-13 05:45:20 +00:00
|
|
|
{
|
2003-12-20 15:45:15 +00:00
|
|
|
return n1 != n2;
|
1999-08-13 05:45:20 +00:00
|
|
|
}
|