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 | |
12 | RCSID("$NetBSD: $") |
13 | |
14 | ENTRY(__ieee754_fmodl) |
15 | fldt 24(%rsp) |
16 | fldt 8(%rsp) |
17 | 1: fprem |
18 | fstsw %ax |
19 | and $04,%ah |
20 | jnz 1b |
21 | fstp %st(1) |
22 | ret |
23 | END (__ieee754_fmodl) |
24 | libm_alias_finite (__ieee754_fmodl, __fmodl) |
25 |