1 #include <config.h>
2 
3 /* Specification.  */
4 #include <gnulib_math.h>
5 
6 #include <float.h>
7 #include "isnand-nolibm.h"
8 
rpl_frexp(double x,int * expptr)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 }
23