NetBSD/lib/libm/arch/i387/s_tan.S

/*
 * Written by J.T. Conklin <jtc@netbsd.org>.
 * Public domain.
 */

#include <machine/asm.h>

RCSID("$NetBSD: s_tan.S,v 1.5 1995/05/09 00:30:00 jtc Exp $")

ENTRY(tan)
	fldl	4(%esp)
	fptan
	fnstsw	%ax
	andw	$0x400,%ax
	jnz	1f
	fstp	%st(0)
	ret
1:	fldpi
	fadd	%st(0)
	fxch	%st(1)
2:	fprem1
	fstsw	%ax
	andw	$0x400,%ax
	jnz	2b
	fstp	%st(1)
	fptan
	fstp	%st(0)
	ret
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`/*`
Winning Strategies has placed this code into the Public Domain 1995-04-29 02:43:31 +04:00			`* Written by J.T. Conklin <jtc@netbsd.org>.`
			`* Public domain.`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`*/`

			`#include <machine/asm.h>`

Id -> NetBSD 1995-05-09 03:55:16 +04:00			`RCSID("$NetBSD: s_tan.S,v 1.5 1995/05/09 00:30:00 jtc Exp $")`
Added RCS ID's. ID's use new RCSID macro from <machine/asm.h>. 1994-03-12 04:30:22 +03:00
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`ENTRY(tan)`
			`fldl 4(%esp)`
			`fptan`
			`fnstsw %ax`
			`andw $0x400,%ax`
Optimize the common case (theta < 2^63). 1994-02-18 20:38:59 +03:00			`jnz 1f`
			`fstp %st(0)`
			`ret`
			`1: fldpi`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`fadd %st(0)`
			`fxch %st(1)`
Optimize the common case (theta < 2^63). 1994-02-18 20:38:59 +03:00			`2: fprem1`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`fstsw %ax`
			`andw $0x400,%ax`
Optimize the common case (theta < 2^63). 1994-02-18 20:38:59 +03:00			`jnz 2b`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`fstp %st(1)`
			`fptan`
Optimize the common case (theta < 2^63). 1994-02-18 20:38:59 +03:00			`fstp %st(0)`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`ret`