1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Changes for long double by Ulrich Drepper <drepper@cygnus.com>
4 * Public domain.
5 */
6
7
8long double
9__significandl (long double x)
10{
11 long double res;
12
13 asm ("fxtract\n"
14 "fstp %%st(1)" : "=t" (res) : "0" (x));
15 return res;
16}
17
18weak_alias (__significandl, significandl)
19