xref: /openbsd-src/lib/libc/arch/hppa/gen/fabs.c (revision 8524f5e47a979d652a6cff427bccf4aa227a82d2)
1 /*	$OpenBSD: fabs.c,v 1.3 2002/10/21 18:41:05 mickey Exp $	*/
2 
3 /*
4  * Written by Miodrag Vallat.  Public domain
5  */
6 
7 double
8 fabs(double val)
9 {
10 
11 	__asm__ __volatile__("fabs,dbl %0,%0" : "+f" (val));
12 	return (val);
13 }
14