]> git.ipfire.org Git - thirdparty/glibc.git/blob - sysdeps/libm-i387/e_remainderl.S
Update.
[thirdparty/glibc.git] / sysdeps / libm-i387 / e_remainderl.S
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 */
7
8 #include <machine/asm.h>
9
10 RCSID("$NetBSD: $")
11
12 ENTRY(__ieee754_remainderl)
13 fldt 16(%esp)
14 fldt 4(%esp)
15 1: fprem1
16 fstsw %ax
17 sahf
18 jp 1b
19 fstp %st(1)
20 ret
21 END (__ieee754_remainderl)