update from main archive 961005
[glibc.git] / sysdeps / libm-i387 / s_cosf.S
bloba2bd0e5fa92765abdc07b1be1ec4efc3f561822e
1 /*
2  * Written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  */
6 #include <machine/asm.h>
8 RCSID("$NetBSD: s_cosf.S,v 1.3 1995/05/08 23:55:16 jtc Exp $")
10 /* A float's domain isn't large enough to require argument reduction. */
11 ENTRY(__cosf)
12         flds    4(%esp)
13         fcos
14         ret
15 PSEUDO_END (__cosf)
16 weak_alias (__cosf, cosf)