amiga-libnix2/sources/math/stdio/isnan.c

6 lines
129 B
C

int isnan(double a)
{
unsigned long *b=(unsigned long *)&a;
return (b[0]&0x7ff00000)==0x7ff00000&&((b[0]&0xfffff)||b[1]);
}