fabs.c revision 1.4 
11.4Sperry/*	$NetBSD: fabs.c,v 1.4 2005/12/24 21:42:32 perry 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.4Sperry	__asm volatile("fabs,dbl %0,%0" : "+f" (val));
161.1Schs	return (val);
171.1Schs}
18