update for HEAD-2003091401
[reactos.git] / lib / crtdll / 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