xref: /freebsd/lib/msun/src/s_significand.c (revision c66ec88fed842fbaad62c30d510644ceb7bd2d71)
1 /* @(#)s_signif.c 5.1 93/09/24 */
2 /*
3  * ====================================================
4  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
5  *
6  * Developed at SunPro, a Sun Microsystems, Inc. business.
7  * Permission to use, copy, modify, and distribute this
8  * software is freely granted, provided that this notice
9  * is preserved.
10  * ====================================================
11  */
12 
13 #include <sys/cdefs.h>
14 __FBSDID("$FreeBSD$");
15 
16 /*
17  * significand(x) computes just
18  * 	scalb(x, (double) -ilogb(x)),
19  * for exercising the fraction-part(F) IEEE 754-1985 test vector.
20  */
21 
22 #include "math.h"
23 #include "math_private.h"
24 
25 double
26 significand(double x)
27 {
28 	return __ieee754_scalb(x,(double) -ilogb(x));
29 }
30