1/*
2 * Public domain.
3 *
4 */
5
6#include <machine/asm.h>
7#include <libm-alias-finite.h>
8
9ENTRY(__ieee754_remainderl)
10	fldt	24(%rsp)
11	fldt	8(%rsp)
121:	fprem1
13	fstsw	%ax
14	testl	$0x400,%eax
15	jnz	1b
16	fstp	%st(1)
17	ret
18END (__ieee754_remainderl)
19libm_alias_finite (__ieee754_remainderl, __remainderl)
20