1/*
2 * Public domain.
3 *
4 */
5
6#include <machine/asm.h>
7#include <libm-alias-finite.h>
8
9RCSID("$NetBSD: $")
10
11ENTRY(__ieee754_fmodl)
12	fldt	24(%rsp)
13	fldt	8(%rsp)
141:	fprem
15	fstsw	%ax
16	and	$04,%ah
17	jnz	1b
18	fstp	%st(1)
19	ret
20END (__ieee754_fmodl)
21libm_alias_finite (__ieee754_fmodl, __fmodl)
22