Subversion Repositories Kolibri OS

Rev

Go to most recent revision | 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 
 * Adapted for `long double' by Ulrich Drepper .
6 
 *
7 
 * Removed header file dependency for use in libmingwex.a by
8 
 *   Danny Smith
9 
 */
10 
 
11 
	.file	"sinf.S"
12 
	.text
13 
	.align 4
14 
.globl _sinf
15 
	.def	_sinf;	.scl	2;	.type	32;	.endef
16 
_sinf:
17 
	flds	4(%esp)
18 
	fsin
19 
	fnstsw	%ax
20 
	testl	$0x400,%eax
21 
	jnz	1f
22 
	ret
23 
1:	fldpi
24 
	fadd	%st(0)
25 
	fxch	%st(1)
26 
2:	fprem1
27 
	fnstsw	%ax
28 
	testl	$0x400,%eax
29 
	jnz	2b
30 
	fstp	%st(1)
31 
	fsin
32 
	ret