branch update for HEAD-2003021201
[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 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         
14         x->exponent = 0x3FE;
15         
16         return __x; 
17 }
18
19
20