:pserver:cvsanon@mok.lvcm.com:/CVS/ReactOS reactos
[reactos.git] / lib / msvcrt / math / frexp.c
1 #include <msvcrt/math.h>
2 #include <msvcrt/stdlib.h>
3 #include <msvcrt/internal/ieee.h>
4
5 double
6 frexp(double __x, int *exptr)
7 {
8   double_t *x = (double_t *)&__x;
9
10   if (exptr != NULL)
11     *exptr = x->exponent - 0x3FE;
12
13   x->exponent = 0x3FE;
14
15   return __x;
16 }
17
18
19