Patrick Welche <prlw1@cam.ac.uk>
[netbsd-mini2440.git] / lib / libm / arch / i387 / e_remainderf.S
blob6ddb1b48f57c757af866e17a071cee6a8b5d0a5b
1 /*
2  * Written by J.T. Conklin <jtc@NetBSD.org>.
3  * Public domain.
4  */
6 #include <machine/asm.h>
8 #include "abi.h"
10 RCSID("$NetBSD: e_remainderf.S,v 1.4 2001/06/25 16:47:05 fvdl Exp $")
12 ENTRY(__ieee754_remainderf)
13         XMM_TWO_ARG_FLOAT_PROLOGUE
14         flds    ARG_FLOAT_TWO
15         flds    ARG_FLOAT_ONE
16 1:      fprem1
17         fstsw   %ax
18         btw     $10,%ax
19         jc      1b
20         fstp    %st(1)
21         XMM_FLOAT_EPILOGUE
22         ret