s_significandf.c revision 2117 
1248590Smm/* s_significandf.c -- float version of s_significand.c.
2248590Smm * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
3248590Smm */
4248590Smm
5248590Smm/*
6248590Smm * ====================================================
7248590Smm * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
8248590Smm *
9248590Smm * Developed at SunPro, a Sun Microsystems, Inc. business.
10248590Smm * Permission to use, copy, modify, and distribute this
11248590Smm * software is freely granted, provided that this notice
12248590Smm * is preserved.
13248590Smm * ====================================================
14248590Smm */
15248590Smm
16248590Smm#ifndef lint
17248590Smmstatic char rcsid[] = "$Id: s_significandf.c,v 1.1 1994/08/10 20:33:07 jtc Exp $";
18248590Smm#endif
19248590Smm
20248590Smm#include "math.h"
21248590Smm#include "math_private.h"
22248590Smm
23248590Smm#ifdef __STDC__
24248590Smm	float significandf(float x)
25248590Smm#else
26248590Smm	float significandf(x)
27248590Smm	float x;
28248590Smm#endif
29248590Smm{
30248590Smm	return __ieee754_scalbf(x,(float) -ilogbf(x));
31248590Smm}
32248590Smm