lib/libc/arch/hppa/gen/fabs.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

/*	$NetBSD: fabs.c,v 1.4 2005/12/24 21:42:32 perry Exp $	*/

/*	$OpenBSD: fabs.c,v 1.3 2002/10/21 18:41:05 mickey Exp $	*/

/*
 * Written by Miodrag Vallat.  Public domain
 */

#include <math.h>

double
fabs(double val)
{

	__asm volatile("fabs,dbl %0,%0" : "+f" (val));
	return (val);
}