Cleanup.
[glibc/history.git] / sysdeps / libm-i387 / e_remainder.S
blob2f43cb894c519d6811b641aa9f94849451a46623
1 /*
2  * Written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  */
6 #include <machine/asm.h>
8 RCSID("$NetBSD: e_remainder.S,v 1.4 1995/05/08 23:49:37 jtc Exp $")
10 ENTRY(__ieee754_remainder)
11         fldl    12(%esp)
12         fldl    4(%esp)
13 1:      fprem1
14         fstsw   %ax
15         sahf
16         jp      1b
17         fstp    %st(1)
18         ret
19 END (__ieee754_remainder)