Home | History | Annotate | Download | only in fdlibm
      1 
      2 /* @(#)s_significand.c 1.3 95/01/18 */
      3 /*
      4  * ====================================================
      5  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
      6  *
      7  * Developed at SunSoft, a Sun Microsystems, Inc. business.
      8  * Permission to use, copy, modify, and distribute this
      9  * software is freely granted, provided that this notice
     10  * is preserved.
     11  * ====================================================
     12  */
     13 
     14 /*
     15  * ieee_significand(x) computes just
     16  * 	scalb(x, (double) -ieee_ilogb(x)),
     17  * for exercising the fraction-part(F) IEEE 754-1985 test vector.
     18  */
     19 
     20 #include "fdlibm.h"
     21 
     22 #ifdef __STDC__
     23 	double ieee_significand(double x)
     24 #else
     25 	double ieee_significand(x)
     26 	double x;
     27 #endif
     28 {
     29 	return __ieee754_scalb(x,(double) -ieee_ilogb(x));
     30 }
     31