frexp.c

来自「一个类似windows」· C语言 代码 · 共 30 行

#include <math.h>
#include <stdlib.h>
#include <internal/ieee.h>

/*
 * @implemented
 */
double
frexp(double __x, int *exptr)
{
	union
	{
		double*   __x;
		double_t*   x;
	} x;

	x.__x = &__x;

	if ( exptr != NULL )
		*exptr = x.x->exponent - 0x3FE;


	x.x->exponent = 0x3FE;

	return __x;
}