1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 *
5 * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
6 */
7
8#include <math_private.h>
9#include <libm-alias-ldouble.h>
10
11long double
12__atanl (long double x)
13{
14 long double res;
15
16 asm ("fld1\n"
17 "fpatan"
18 : "=t" (res) : "0" (x));
19
20 return res;
21}
22
23libm_alias_ldouble (__atan, atan)
24