|
@@ -1,30 +0,0 @@
|
|
|
-/* @(#)s_signif.c 5.1 93/09/24 */
|
|
|
-/*
|
|
|
- * ====================================================
|
|
|
- * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
|
|
- *
|
|
|
- * Developed at SunPro, a Sun Microsystems, Inc. business.
|
|
|
- * Permission to use, copy, modify, and distribute this
|
|
|
- * software is freely granted, provided that this notice
|
|
|
- * is preserved.
|
|
|
- * ====================================================
|
|
|
- */
|
|
|
-
|
|
|
-#include "cdefs-compat.h"
|
|
|
-//__FBSDID("$FreeBSD: src/lib/msun/src/s_significand.c,v 1.10 2008/02/22 02:30:35 das Exp $");
|
|
|
-
|
|
|
-/*
|
|
|
- * significand(x) computes just
|
|
|
- * scalb(x, (double) -ilogb(x)),
|
|
|
- * for exercising the fraction-part(F) IEEE 754-1985 test vector.
|
|
|
- */
|
|
|
-
|
|
|
-#include <openlibm_math.h>
|
|
|
-
|
|
|
-#include "math_private.h"
|
|
|
-
|
|
|
-DLLEXPORT double
|
|
|
-significand(double x)
|
|
|
-{
|
|
|
- return __ieee754_scalb(x,(double) -ilogb(x));
|
|
|
-}
|