update from main archive 961005
[glibc/history.git] / sysdeps / libm-i387 / e_sqrtl.S
blob56947e16f881dcad325dc4f7d22dfa6b1ec30d33
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  */
8 #include <machine/asm.h>
10 RCSID("$NetBSD: $")
12 ENTRY(__ieee754_sqrtl)
13         fldt    4(%esp)
14         fsqrt
15         ret
16 PSEUDO_END (__ieee754_sqrtl)