Back to index

glibc  2.9
s_significandl.c
Go to the documentation of this file.
00001 /*
00002  * Written by J.T. Conklin <jtc@netbsd.org>.
00003  * Changes for long double by Ulrich Drepper <drepper@cygnus.com>
00004  * Public domain.
00005  */
00006 
00007 #include <math_private.h>
00008 
00009 long double
00010 __significandl (long double x)
00011 {
00012   long double res;
00013 
00014   asm ("fxtract\n"
00015        "fstp  %%st(1)" : "=t" (res) : "0" (x));
00016   return res;
00017 }
00018 
00019 weak_alias (__significandl, significandl)