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