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 <libm-alias-ldouble.h>
9
10long double
11__atanl (long double x)
12{
13 long double res;
14
15 asm ("fld1\n"
16 "fpatan"
17 : "=t" (res) : "0" (x));
18
19 return res;
20}
21
22libm_alias_ldouble (__atan, atan)
23