[thirdparty/glibc.git] / sysdeps / libm-i387 / e_fmodl.S

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

#include <machine/asm.h>

RCSID("$NetBSD: $")

ENTRY(__ieee754_fmodl)
	fldt	16(%esp)
	fldt	4(%esp)
1:	fprem
	fstsw	%ax
	sahf
	jp	1b
	fstpl	%st(1)
	ret
PSEUDO_END (__ieee754_fmodl)
Commit	Line	Data
ee188d55 RM	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 <machine/asm.h>
	9
	10	RCSID("$NetBSD: $")
	11
	12	ENTRY(__ieee754_fmodl)
	13	fldt 16(%esp)
	14	fldt 4(%esp)
	15	1: fprem
	16	fstsw %ax
	17	sahf
	18	jp 1b
	19	fstpl %st(1)
	20	ret
cccda09f	21	PSEUDO_END (__ieee754_fmodl)