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