reactos/lib/sdk/crt/math/frexp.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;
}
- Cleanup the /lib directory, by putting more 3rd-party libs in /3rdparty, and by creating a new directory called /sdk where libraries which emulate the ones in the WDK are present (Such as uuid, nt, crt, etc). - Removed lib/interlck and lib/string. - Removed math routines from lib/rtl. - Created a new library called libcntpr which is what NT/WDK use when compiling the kernel/system libraries. This is an "NT-Private" version of the CRT which is supposed to contain what we had in lib/string and lib/rtl. svn path=/trunk/; revision=26095 2007-03-14 20:24:57 +00:00			`#include <math.h>`
			`#include <stdlib.h>`
			`#include <internal/ieee.h>`

			`/*`
			`* @implemented`
			`*/`
			`double`
			`frexp(double __x, int *exptr)`
			`{`
			`union`
			`{`
			`double* __x;`
[CRT] - define _CRTBLD - rename float_t/double_t/long_double_t to float_s/double_s/long_double_s to avoid name conflicts svn path=/branches/ros-amd64-bringup/; revision=46478 2010-03-26 23:41:53 +00:00			`double_s* x;`
- Cleanup the /lib directory, by putting more 3rd-party libs in /3rdparty, and by creating a new directory called /sdk where libraries which emulate the ones in the WDK are present (Such as uuid, nt, crt, etc). - Removed lib/interlck and lib/string. - Removed math routines from lib/rtl. - Created a new library called libcntpr which is what NT/WDK use when compiling the kernel/system libraries. This is an "NT-Private" version of the CRT which is supposed to contain what we had in lib/string and lib/rtl. svn path=/trunk/; revision=26095 2007-03-14 20:24:57 +00:00			`} x;`

			`x.__x = &__x;`

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


			`x.x->exponent = 0x3FE;`

			`return __x;`
			`}`