Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1906 serge 1
/*
2
 * Written by J.T. Conklin .
3
 * Public domain.
4
 *
5
 * Removed header file dependency for use in libmingwex.a by
6
 *   Danny Smith 
7
 */
8
 
9
	.file	"sin.s"
10
	.text
11
	.align 4
12
.globl _sin
13
	.def	_sin;	.scl	2;	.type	32;	.endef
14
_sin:
15
	fldl	4(%esp)
16
	fsin
17
	fnstsw	%ax
18
	testl	$0x400,%eax
19
	jnz	1f
20
	ret
21
1:	fldpi
22
	fadd	%st(0)
23
	fxch	%st(1)
24
2:	fprem1
25
	fnstsw	%ax
26
	testl	$0x400,%eax
27
	jnz	2b
28
	fstp	%st(1)
29
	fsin
30
	ret