Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  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.h>
  8.  
  9. long double
  10. logbl (long double x)
  11. {
  12.   long double res;
  13.  
  14.   asm ("fxtract\n\t"
  15.        "fstp    %%st" : "=t" (res) : "0" (x));
  16.   return res;
  17. }
  18.