1
0
mirror of https://github.com/cahirwpz/libnix.git synced 2025-12-08 14:58:56 +00:00
Files
amiga-libnix2/sources/math/stdio/isnan.c
2014-01-05 20:02:29 +01:00

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]);
}