2.9
[glibc/nacl-glibc.git] / sysdeps / i386 / fpu / s_sinf.S
blob5ca45f52e2c2c00a14b34596ebcd5ba83cef0d5a
1 /*
2  * Written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  */
6 #include <machine/asm.h>
8 RCSID("$NetBSD: s_sinf.S,v 1.3 1995/05/09 00:27:53 jtc Exp $")
10 ENTRY(__sinf)
11         flds    4(%esp)
12         fsin
13         fnstsw  %ax
14         testl   $0x400,%eax
15         jnz     1f
16         ret
17         .align ALIGNARG(4)
18 1:      fldpi
19         fadd    %st(0)
20         fxch    %st(1)
21 2:      fprem1
22         fnstsw  %ax
23         testl   $0x400,%eax
24         jnz     2b
25         fstp    %st(1)
26         fsin
27         ret
28 END (__sinf)
29 weak_alias (__sinf, sinf)