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.  * Public domain.
  4.  *
  5.  * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
  6.  */
  7.  
  8. #include <math.h>
  9.  
  10. long double
  11. fmodl (long double x, long double y)
  12. {
  13.   long double res;
  14.  
  15.   asm ("1:\tfprem\n\t"
  16.        "fstsw   %%ax\n\t"
  17.        "sahf\n\t"
  18.        "jp      1b\n\t"
  19.        "fstp    %%st(1)"
  20.        : "=t" (res) : "0" (x), "u" (y) : "ax", "st(1)");
  21.   return res;
  22. }
  23.