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 9long 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 19weak_alias (__significandl, significandl) 20