xref: /openbsd-src/lib/libc/arch/hppa/gen/fabs.c (revision 2fbf033e009bb5c4db92160700ec03c25f292728)
1 /*	$OpenBSD: fabs.c,v 1.9 2013/03/28 18:09:38 martynas Exp $	*/
2 
3 /*
4  * Written by Miodrag Vallat.  Public domain
5  */
6 
7 #include <sys/types.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 __strong_alias(fabsl, fabs);
18