isnan.c 201 B

1234567891011
  1. __IsNan(double d)
  2. {
  3. #if defined(__vax) || defined(__pdp)
  4. #else
  5. float f = d;
  6. if ((*((long *) &f) & 0x7f800000) == 0x7f800000 &&
  7. (*((long *) &f) & 0x007fffff) != 0) return 1;
  8. #endif
  9. return 0;
  10. }