home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / spoc88 / cflt20 / ieeetype.c < prev    next >
Text File  |  1988-04-14  |  352b  |  16 lines
  1.  
  2. enum ieee {
  3.      ieee_normal,
  4.      ieee_pINF,
  5.      ieee_mINF,
  6.      ieee_NAN,
  7. };
  8.  
  9. enum ieee ieee_type(long double x)
  10. {
  11.      unsigned int *a = (unsigned int *) &x;
  12.      if ((a[4] & 0x7FFF) != 0x7FFF) return ieee_normal;
  13.      if (a[0] | a[1] | a[2] | (a[3] & 0x7FFF)) return ieee_NAN;
  14.      return a[4] & 0x8000 ? ieee_mINF : ieee_pINF;
  15. }
  16.