Updated to fedora-glibc-20050912T0656
[glibc/history.git] / sysdeps / i386 / fpu / e_remainderl.S
blob5f50b626a244a62db334c6c2db31d4bf400ca3a6
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  */
8 #include <machine/asm.h>
10 RCSID("$NetBSD: $")
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)