xref: /haiku/src/system/libroot/posix/musl/math/significand.c (revision f504f61099b010fbfa94b1cc63d2e9072c7f7185) 
1*f504f610SAugustin Cavalier #define _GNU_SOURCE
2*f504f610SAugustin Cavalier #include <math.h>
3*f504f610SAugustin Cavalier 
significand(double x)4*f504f610SAugustin Cavalier double significand(double x)
5*f504f610SAugustin Cavalier {
6*f504f610SAugustin Cavalier 	return scalbn(x, -ilogb(x));
7*f504f610SAugustin Cavalier }
8