xref: /openbsd-src/lib/libm/arch/hppa/e_sqrt.c (revision 2f2c00629eff6a304ebffb255fc56f4fa7a1833b)
1*2f2c0062Sguenther /*	$OpenBSD: e_sqrt.c,v 1.12 2016/09/12 19:47:01 guenther Exp $	*/
2d79c5b16Smickey /*
3d79c5b16Smickey  * Written by Michael Shalayeff. Public Domain
4d79c5b16Smickey  */
5d79c5b16Smickey 
6390c8400Smartynas #include <float.h>
7390c8400Smartynas #include <math.h>
8d79c5b16Smickey 
9d79c5b16Smickey double
sqrt(double x)107b36286aSmartynas sqrt(double x)
11d79c5b16Smickey {
12b5aa3b33Sguenther 	__asm__ volatile ("fsqrt,dbl %0, %0" : "+f" (x));
13d79c5b16Smickey 	return (x);
14d79c5b16Smickey }
15*2f2c0062Sguenther DEF_STD(sqrt);
16*2f2c0062Sguenther LDBL_CLONE(sqrt);
17