11.6Sriastrad/*	$NetBSD: fabs.c,v 1.6 2018/11/08 16:29:50 riastradh Exp $	*/
21.1Schs
31.1Schs/*	$OpenBSD: fabs.c,v 1.3 2002/10/21 18:41:05 mickey Exp $	*/
41.1Schs
51.1Schs/*
61.1Schs * Written by Miodrag Vallat.  Public domain
71.1Schs */
81.1Schs
91.5Sriastrad#include <sys/cdefs.h>
101.5Sriastrad
111.2Sskrll#include <math.h>
121.2Sskrll
131.5Sriastrad#ifndef __HAVE_LONG_DOUBLE
141.6Sriastrad__strong_alias(fabsl, fabs)
151.5Sriastrad#endif
161.5Sriastrad
171.1Schsdouble
181.1Schsfabs(double val)
191.1Schs{
201.1Schs
211.4Sperry	__asm volatile("fabs,dbl %0,%0" : "+f" (val));
221.1Schs	return (val);
231.1Schs}
24