1  #include <config.h>
       2  #include <gnulib_math.h>
       3  #include <float.h>
       4  #include <math.h>
       5  
       6  long double rpl_frexpl (long double x, int *expptr)
       7  {
       8    if (x == 0.0L || x == -0.0L)
       9    {
      10      *expptr = x;
      11      return x;
      12    }
      13    else if (isnanl (x))
      14      return x;
      15    else if (isinf (x))
      16      return x;
      17  #ifndef _MSC_VER
      18  #undef frexpl
      19  #endif
      20    return frexpl (x, expptr);
      21  }