1/*	$OpenBSD: e_fmod.S,v 1.5 2018/07/03 22:43:34 mortimer Exp $ */
2/*
3 * Written by J.T. Conklin <jtc@NetBSD.org>.
4 * Public domain.
5 */
6
7#include <machine/asm.h>
8
9#include "abi.h"
10
11
12ENTRY(fmod)
13	RETGUARD_SETUP(fmod, r11)
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	RETGUARD_CHECK(fmod, r11)
24	ret
25END(fmod)
26