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)9double 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