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 #ifndef AROS_NOFPU
  20
  21 #include "__math.h"
  22 #include <math.h>
  23
  24 #ifdef isinf
  25 #   undef isinf
  26 #endif
  27 int __isinf(double);
  28
  29 int isinf(double val)
  30 {
  31     return __isinf(val);
  32 } /* isinf */
  33
  34 #else
  35
  36 int isinf(void)
  37 {
  38     return 0;
  39 }
  40
  41 #endif /* AROS_NOFPU */