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

/*
 * Written by J.T. Conklin <jtc@netbsd.org>.
 * Public domain.
 */

#include <machine/asm.h>

RCSID("$NetBSD: e_remainder.S,v 1.4 1995/05/08 23:49:37 jtc Exp $")

ENTRY(__ieee754_remainder)
	fldl	12(%esp)
	fldl	4(%esp)
1:	fprem1
	fstsw	%ax
	sahf
	jp	1b
	fstp	%st(1)
	ret
END (__ieee754_remainder)
Commit	Line	Data
f7eac6eb RM	1	/*
	2	* Written by J.T. Conklin <jtc@netbsd.org>.
	3	* Public domain.
	4	*/
	5
	6	#include <machine/asm.h>
	7
	8	RCSID("$NetBSD: e_remainder.S,v 1.4 1995/05/08 23:49:37 jtc Exp $")
	9
	10	ENTRY(__ieee754_remainder)
	11	fldl 12(%esp)
	12	fldl 4(%esp)
	13	1: fprem1
	14	fstsw %ax
	15	sahf
	16	jp 1b
40a55d20	17	fstp %st(1)
f7eac6eb	18	ret
d38cd08c	19	END (__ieee754_remainder)