mirror of
https://github.com/reactos/reactos.git
synced 2025-07-04 16:31:21 +00:00
33 lines
750 B
C
33 lines
750 B
C
/*
|
|
* PROJECT: ReactOS CRT
|
|
* LICENSE: MIT (https://spdx.org/licenses/MIT)
|
|
* PURPOSE: Implementation of frexp
|
|
* COPYRIGHT: Imported from musl libc
|
|
* https://git.musl-libc.org/cgit/musl/tree/src/math/frexp.c
|
|
* blob: 27b6266ed0c1d7c5dadd06ecc186a994fdcd1c52
|
|
* See https://git.musl-libc.org/cgit/musl/tree/COPYRIGHT
|
|
*/
|
|
|
|
#include <math.h>
|
|
#include <stdint.h>
|
|
|
|
double frexp(double x, int *e)
|
|
{
|
|
union { double d; uint64_t i; } y = { x };
|
|
int ee = y.i>>52 & 0x7ff;
|
|
|
|
if (!ee) {
|
|
if (x) {
|
|
x = frexp(x*0x1p64, e);
|
|
*e -= 64;
|
|
} else *e = 0;
|
|
return x;
|
|
} else if (ee == 0x7ff) {
|
|
return x;
|
|
}
|
|
|
|
*e = ee - 0x3fe;
|
|
y.i &= 0x800fffffffffffffull;
|
|
y.i |= 0x3fe0000000000000ull;
|
|
return y.d;
|
|
}
|