[thirdparty/glibc.git] / sysdeps / i386 / fpu / e_fmodl.c

/*
 * Written by J.T. Conklin <jtc@netbsd.org>.
 * Public domain.
 *
 * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
 */

#include <math_private.h>

long double
__ieee754_fmodl (long double x, long double y)
{
  long double res;

  asm ("1:\tfprem\n"
       "fstsw   %%ax\n"
       "sahf\n"
       "jp      1b\n"
       "fstp    %%st(1)"
       : "=t" (res) : "0" (x), "u" (y) : "ax", "st(1)");
  return res;
}
strong_alias (__ieee754_fmodl, __fmodl_finite)
Commit	Line	Data
3ebab9ee AJ	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_private.h>
	9
	10	long double
	11	__ieee754_fmodl (long double x, long double y)
	12	{
	13	long double res;
	14
cdfd61e1	15	asm ("1:\tfprem\n"
3ebab9ee AJ	16	"fstsw %%ax\n"
	17	"sahf\n"
	18	"jp 1b\n"
	19	"fstp %%st(1)"
	20	: "=t" (res) : "0" (x), "u" (y) : "ax", "st(1)");
	21	return res;
	22	}
0ac5ae23	23	strong_alias (__ieee754_fmodl, __fmodl_finite)