1  /*
       2   * Public domain.
       3   *
       4   */
       5  
       6  #include <math_private.h>
       7  #include <libm-alias-finite.h>
       8  
       9  long double
      10  __ieee754_fmodl (long double x, long double y)
      11  {
      12    long double res;
      13  
      14    asm ("1:\tfprem\n"
      15         "fstsw   %%ax\n"
      16         "sahf\n"
      17         "jp      1b\n"
      18         "fstp    %%st(1)"
      19         : "=t" (res) : "0" (x), "u" (y) : "ax", "st(1)");
      20    return res;
      21  }
      22  libm_alias_finite (__ieee754_fmodl, __fmodl)