1/*	$OpenBSD: fabs.c,v 1.11 2014/04/18 15:09:52 guenther Exp $	*/
2
3/*
4 * Written by Miodrag Vallat.  Public domain
5 */
6
7#include <sys/types.h>
8#include <math.h>
9
10double
11fabs(double val)
12{
13
14	__asm__ volatile("fabs,dbl %0,%0" : "+f" (val));
15	return (val);
16}
17
18__strong_alias(fabsl, fabs);
19