chiark / gitweb /
eglibc (2.11.3-4+deb6u3) squeeze-lts; urgency=medium
[eglibc.git] / sysdeps / i386 / fpu / s_significandl.c
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 #include <math_private.h>
8
9 long double
10 __significandl (long double x)
11 {
12   long double res;
13
14   asm ("fxtract\n"
15        "fstp    %%st(1)" : "=t" (res) : "0" (x));
16   return res;
17 }
18
19 weak_alias (__significandl, significandl)