1  #include <config.h>
       2  
       3  /* Specification.  */
       4  #include <gnulib_math.h>
       5  
       6  #include <float.h>
       7  #include "isnand-nolibm.h"
       8  
       9  double rpl_frexp (double x, int *expptr)
      10  {
      11    if (x == 0.0 || x == -0.0)
      12    {
      13      *expptr = x;
      14      return x;
      15    }
      16    else if (isnan (x))
      17      return x;
      18    else if (isinf (x))
      19      return x;
      20  #undef frexp
      21    return frexp (x, expptr);
      22  }