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