1*2fe8fb19SBen Gras /* $NetBSD: fabs.c,v 1.4 2005/12/24 21:42:32 perry Exp $ */ 2*2fe8fb19SBen Gras 3*2fe8fb19SBen Gras /* $OpenBSD: fabs.c,v 1.3 2002/10/21 18:41:05 mickey Exp $ */ 4*2fe8fb19SBen Gras 5*2fe8fb19SBen Gras /* 6*2fe8fb19SBen Gras * Written by Miodrag Vallat. Public domain 7*2fe8fb19SBen Gras */ 8*2fe8fb19SBen Gras 9*2fe8fb19SBen Gras #include <math.h> 10*2fe8fb19SBen Gras 11*2fe8fb19SBen Gras double fabs(double val)12*2fe8fb19SBen Grasfabs(double val) 13*2fe8fb19SBen Gras { 14*2fe8fb19SBen Gras 15*2fe8fb19SBen Gras __asm volatile("fabs,dbl %0,%0" : "+f" (val)); 16*2fe8fb19SBen Gras return (val); 17*2fe8fb19SBen Gras } 18