]> git.ipfire.org Git - thirdparty/glibc.git/blob - sysdeps/libm-i387/s_atan.S
4dcd54fdafa63b4271dbbe49abe3c66dc13cd54e
[thirdparty/glibc.git] / sysdeps / libm-i387 / s_atan.S
1 /*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 */
5
6 #include <machine/asm.h>
7
8 RCSID("$NetBSD: s_atan.S,v 1.4 1995/05/08 23:50:41 jtc Exp $")
9
10 ENTRY(__atan)
11 fldl 4(%esp)
12 fld1
13 fpatan
14 ret
15 weak_alias (__atan, atan)