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