Fresh Fish 8/FreshFishVol8-CD1.bin/gnu/src/amiga/libnix-0.7-src.lha/libnix-0.7/sources/math/stdio/isinf.c

Text File | 1994-12-18 | 128 b | 6 lines

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