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


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

/*	$OpenBSD: fabs.c,v 1.11 2014/04/18 15:09:52 guenther Exp $	*/

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

#include <sys/types.h>
#include <math.h>

double
fabs(double val)
{

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

__strong_alias(fabsl, fabs);