xref: /openbsd/lib/libm/arch/i387/s_sin.S (revision 898184e3)
1/*	$OpenBSD: s_sin.S,v 1.2 2005/08/02 11:17:31 espie Exp $ */
2/*
3 * Written by J.T. Conklin <jtc@netbsd.org>.
4 * Public domain.
5 */
6
7#include <machine/asm.h>
8
9ENTRY(sin)
10	fldl	4(%esp)
11	fsin
12	fnstsw	%ax
13	andw	$0x400,%ax
14	jnz	1f
15	ret
161:	fldpi
17	fadd	%st(0)
18	fxch	%st(1)
192:	fprem1
20	fnstsw	%ax
21	andw	$0x400,%ax
22	jnz	2b
23	fstp	%st(1)
24	fsin
25	ret
26