1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 *
5 * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
6 */
7
8#include <machine/asm.h>
9
10RCSID("$NetBSD: $")
11
12ENTRY(__sinl)
13	fldt	4(%esp)
14	fsin
15	fnstsw	%ax
16	testl	$0x400,%eax
17	jnz	1f
18	ret
19	.align ALIGNARG(4)
201:	fldpi
21	fadd	%st(0)
22	fxch	%st(1)
232:	fprem1
24	fnstsw	%ax
25	testl	$0x400,%eax
26	jnz	2b
27	fstp	%st(1)
28	fsin
29	ret
30END (__sinl)
31weak_alias (__sinl, sinl)
32