/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */

.global tan;

tan.L0:
	.quad	0xffffffffffffffff

tan:
	fldl	4(%esp)
	fptan
	fstsw
	fstp	%st(0)
	sahf
	jnp	tan.L1
	fstp	%st(0) /*- if exception, there is nothing on the stack */
	fldl	tan.L0
tan.L1:
	ret