1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
/* * Public domain. * */ #include <libm-alias-ldouble.h> long double __atanl (long double x) { long double res; asm ("fld1\n" "fpatan" : "=t" (res) : "0" (x)); return res; } libm_alias_ldouble (__atan, atan)