Return to s_significand.c CVS log

Up to [cvs.NetBSD.org] / src / lib / libm / src

Annotation of src/lib/libm/src/s_significand.c, Revision 1.9

1.4       jtc         1: /* @(#)s_signif.c 5.1 93/09/24 */
1.1       jtc         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
1.8       simonb      8:  * software is freely granted, provided that this notice
1.1       jtc         9:  * is preserved.
                     10:  * ====================================================
                     11:  */
1.3       jtc        12:
1.7       lukem      13: #include <sys/cdefs.h>
1.5       jtc        14: #if defined(LIBM_SCCS) && !defined(lint)
1.9     ! wiz        15: __RCSID("$NetBSD: s_significand.c,v 1.8 1999/07/02 15:37:43 simonb Exp $");
1.3       jtc        16: #endif
1.1       jtc        17:
                     18: /*
                     19:  * significand(x) computes just
                     20:  *     scalb(x, (double) -ilogb(x)),
                     21:  * for exercising the fraction-part(F) IEEE 754-1985 test vector.
                     22:  */
                     23:
1.4       jtc        24: #include "math.h"
                     25: #include "math_private.h"
1.1       jtc        26:
1.9     ! wiz        27: double
        !            28: significand(double x)
1.1       jtc        29: {
                     30:        return __ieee754_scalb(x,(double) -ilogb(x));
                     31: }