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