1 /* $OpenBSD: fabs.c,v 1.11 2014/04/18 15:09:52 guenther Exp $ */ 2 3 /* 4 * Written by Miodrag Vallat. Public domain 5 */ 6 7 #include <sys/types.h> 8 #include <math.h> 9 10 double 11 fabs(double val) 12 { 13 14 __asm__ volatile("fabs,dbl %0,%0" : "+f" (val)); 15 return (val); 16 } 17 18 __strong_alias(fabsl, fabs); 19