xref: /relibc/openlibm/i387/s_sin.S (revision 18f475de56ec7b478b9220a5f28eb9a23cb51d96)
1/*
2 * Written by:
3 *	J.T. Conklin (jtc@netbsd.org)
4 *	Public domain.
5 */
6
7#include <i387/bsd_asm.h>
8//__FBSDID("$FreeBSD: src/lib/msun/i387/s_sin.S,v 1.9 2011/01/07 16:13:12 kib Exp $")
9
10ENTRY(sin)
11	fldl	4(%esp)
12	fsin
13	fnstsw	%ax
14	andw	$0x400,%ax
15	jnz	1f
16	ret
171:	fldpi
18	fadd	%st(0)
19	fxch	%st(1)
202:	fprem1
21	fnstsw	%ax
22	andw	$0x400,%ax
23	jnz	2b
24	fstp	%st(1)
25	fsin
26	ret
27END(sin)
28
29
30