e62e6d3239849fb87bb976712e94651b6b3abdd0
[dragonfly.git] / contrib / openbsd_libm / arch / amd64 / s_tanf.S
1 /*      $OpenBSD: s_tanf.S,v 1.2 2005/08/02 11:17:31 espie Exp $ */
2 /*
3  * Written by J.T. Conklin <jtc@NetBSD.org>.
4  * Public domain.
5  */
6
7 #include <machine/asm.h>
8
9 #include "abi.h"
10
11 /* A float's domain isn't large enough to require argument reduction. */
12 ENTRY(tanf)
13         XMM_ONE_ARG_FLOAT_PROLOGUE
14         flds    ARG_FLOAT_ONE
15         fptan
16         fstp    %st(0)
17         XMM_FLOAT_EPILOGUE
18         ret