mirror of
https://github.com/reactos/reactos.git
synced 2025-07-07 01:31:24 +00:00
527f2f9057
* Create a branch for some evul shell experiments. svn path=/branches/shell-experiments/; revision=61927
29 lines
296 B
C
29 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;
|
|
}
|
|
|
|
|
|
|