1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 *
5 * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
6 * Adapted for x86-64 by Andreas Jaeger <aj@suse.de>.
7 */
8
9#include <machine/asm.h>
10#include <libm-alias-finite.h>
11
12RCSID("$NetBSD: $")
13
14ENTRY(__ieee754_fmodl)
15 fldt 24(%rsp)
16 fldt 8(%rsp)
171: fprem
18 fstsw %ax
19 and $04,%ah
20 jnz 1b
21 fstp %st(1)
22 ret
23END (__ieee754_fmodl)
24libm_alias_finite (__ieee754_fmodl, __fmodl)
25