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
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
22weak_alias (__atanl, atanl)
23