fabs.c revision 1.2 
11.2Sskrll/*	$NetBSD: fabs.c,v 1.2 2005/12/02 09:33:48 skrll 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.2Sskrll#include <math.h>
101.2Sskrll
111.1Schsdouble
121.1Schsfabs(double val)
131.1Schs{
141.1Schs
151.1Schs	__asm__ __volatile__("fabs,dbl %0,%0" : "+f" (val));
161.1Schs	return (val);
171.1Schs}
18