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
12ENTRY(__ieee754_remainderl)
13 fldt 24(%rsp)
14 fldt 8(%rsp)
151: fprem1
16 fstsw %ax
17 testl $0x400,%eax
18 jnz 1b
19 fstp %st(1)
20 ret
21END (__ieee754_remainderl)
22libm_alias_finite (__ieee754_remainderl, __remainderl)
23