xref: /minix3/lib/libc/arch/hppa/gen/fabs.c (revision 2fe8fb192fe7e8720e3e7a77f928da545e872a6a) 
1 /*	$NetBSD: fabs.c,v 1.4 2005/12/24 21:42:32 perry Exp $	*/
2 
3 /*	$OpenBSD: fabs.c,v 1.3 2002/10/21 18:41:05 mickey Exp $	*/
4 
5 /*
6  * Written by Miodrag Vallat.  Public domain
7  */
8 
9 #include <math.h>
10 
11 double
fabs(double val)12 fabs(double val)
13 {
14 
15 	__asm volatile("fabs,dbl %0,%0" : "+f" (val));
16 	return (val);
17 }
18