xref: /openbsd-src/lib/libc/arch/hppa/gen/fabs.c (revision 4c1e55dc91edd6e69ccc60ce855900fbc12cf34f)
1 /*	$OpenBSD: fabs.c,v 1.7 2011/07/08 22:28:33 martynas Exp $	*/
2 
3 /*
4  * Written by Miodrag Vallat.  Public domain
5  */
6 
7 #include <sys/cdefs.h>
8 
9 double
10 fabs(double val)
11 {
12 
13 	__asm__ __volatile__("fabs,dbl %0,%0" : "+f" (val));
14 	return (val);
15 }
16 
17 __weak_alias(fabsl, fabs);
18