reactos/lib/crtdll/old cruft/math/frexp.c

   1 #include <msvcrt/math.h>
   2 #include <msvcrt/stdlib.h>
   3 #include <msvcrt/internal/ieee.h>
   4
   5 /*
   6  * @implemented
   7  */
   8 double
   9 frexp(double __x, int *exptr)
  10 {
  11         double_t *x = (double_t *)&__x;
  12
  13         if ( exptr != NULL )
  14                 *exptr = x->exponent - 0x3FE;
  15
  16
  17         x->exponent = 0x3FE;
  18
  19         return __x;
  20 }
  21
  22
  23