1/*
2 * Public domain.
3 */
4
5
6long double
7__significandl (long double x)
8{
9 long double res;
10
11 asm ("fxtract\n"
12 "fstp %%st(1)" : "=t" (res) : "0" (x));
13 return res;
14}
15
16weak_alias (__significandl, significandl)
17