mirror of
https://github.com/reactos/reactos.git
synced 2024-08-22 03:12:51 +00:00
30 lines
296 B
C
30 lines
296 B
C
#include <math.h>
|
|
#include <stdlib.h>
|
|
#include <internal/ieee.h>
|
|
|
|
/*
|
|
* @implemented
|
|
*/
|
|
double
|
|
frexp(double __x, int *exptr)
|
|
{
|
|
union
|
|
{
|
|
double* __x;
|
|
double_s* x;
|
|
} x;
|
|
|
|
x.__x = &__x;
|
|
|
|
if ( exptr != NULL )
|
|
*exptr = x.x->exponent - 0x3FE;
|
|
|
|
|
|
x.x->exponent = 0x3FE;
|
|
|
|
return __x;
|
|
}
|
|
|
|
|
|
|