]> CyberLeo.Net >> Repos - FreeBSD/FreeBSD.git/blob - lib/msun/amd64/e_fmodf.S
lualoader: fix lua-lint run
[FreeBSD/FreeBSD.git] / lib / msun / amd64 / e_fmodf.S
1 /*
2  * Based on the i387 version written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  */
5
6 #include <machine/asm.h>
7 __FBSDID("$FreeBSD$")
8
9 ENTRY(fmodf)
10         movss   %xmm0,-4(%rsp)
11         movss   %xmm1,-8(%rsp)
12         flds    -8(%rsp)
13         flds    -4(%rsp)
14 1:      fprem
15         fstsw   %ax
16         testw   $0x400,%ax
17         jne     1b
18         fstps   -4(%rsp)
19         movss   -4(%rsp),%xmm0
20         fstp    %st
21         ret
22 END(fmodf)
23
24         .section .note.GNU-stack,"",%progbits