lib/libm/arch/i387/s_tanf.S

   1 /*
   2  * Written by J.T. Conklin <jtc@NetBSD.org>.
   3  * Public domain.
   4  */
   5
   6 #include <machine/asm.h>
   7
   8 #include "abi.h"
   9
  10 RCSID("$NetBSD: s_tanf.S,v 1.4 2001/06/19 00:26:31 fvdl Exp $")
  11
  12 /* A float's domain isn't large enough to require argument reduction. */
  13 ENTRY(tanf)
  14         XMM_ONE_ARG_FLOAT_PROLOGUE
  15         flds    ARG_FLOAT_ONE
  16         fptan
  17         fstp    %st(0)
  18         XMM_FLOAT_EPILOGUE
  19         ret