compiler/clib/__isinf.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Check if a double is infinite.
   6     Lang: english
   7 */
   8
   9 /*
  10  * Written by J.T. Conklin <jtc@netbsd.org>.
  11  * Public domain.
  12  */
  13
  14 /*
  15  * isinf(x) returns 1 is x is inf, else 0;
  16  * no branching!
  17  */
  18
  19
  20 #ifndef AROS_NOFPU
  21
  22 #include "__math.h"
  23 #include <math.h>
  24
  25 int __isinf(double val)
  26 {
  27     int hx,lx;
  28
  29     GET_HIGH_WORD(hx,val);
  30     GET_LOW_WORD(lx,val);
  31     hx &= 0x7fffffff;
  32     hx ^= 0x7ff00000;
  33     hx |= lx;
  34
  35     return (hx == 0);
  36 } /* __isinf */
  37
  38 #else
  39
  40 int __isinf(void)
  41 {
  42         return 0;
  43 }
  44
  45 #endif /* AROS_NOFPU */