xref: /netbsd/lib/libm/arch/i387/e_fmod.S (revision bf9ec67e)
1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 */
5
6#include <machine/asm.h>
7
8#include "abi.h"
9
10
11RCSID("$NetBSD: e_fmod.S,v 1.6 2001/06/25 16:44:34 fvdl Exp $")
12
13ENTRY(__ieee754_fmod)
14	XMM_TWO_ARG_DOUBLE_PROLOGUE
15	fldl	ARG_DOUBLE_TWO
16	fldl	ARG_DOUBLE_ONE
171:	fprem
18	fstsw	%ax
19	btw	$10,%ax
20	jc	1b
21	fstp	%st(1)
22	XMM_DOUBLE_EPILOGUE
23	ret
24