libc/sysdeps/ieee754/dbl-wrap/s_tan.c


1
2
3
4
5
6
7
8
9
10
11
12
13

#include "dbl-wrap.h"

wrap_type_t WRAP_FUNC (tan) (wrap_type_t);

double
tan (double x)
{
  return (double) WRAP_FUNC (tan) ((wrap_type_t) x);
}

#ifdef NO_LONG_DOUBLE
weak_alias (tan, tanl)
#endif