1 /*
2  * Public domain.
3  */
4 
5 
6 long double
__significandl(long double x)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 
16 weak_alias (__significandl, significandl)
17