1*e84f49edSriastradh /* $NetBSD: fabs.c,v 1.6 2018/11/08 16:29:50 riastradh Exp $ */ 295a63d48Schs 395a63d48Schs /* $OpenBSD: fabs.c,v 1.3 2002/10/21 18:41:05 mickey Exp $ */ 495a63d48Schs 595a63d48Schs /* 695a63d48Schs * Written by Miodrag Vallat. Public domain 795a63d48Schs */ 895a63d48Schs 9cdb65da5Sriastradh #include <sys/cdefs.h> 10cdb65da5Sriastradh 1130214a42Sskrll #include <math.h> 1230214a42Sskrll 13cdb65da5Sriastradh #ifndef __HAVE_LONG_DOUBLE __strong_alias(fabsl,fabs)14*e84f49edSriastradh__strong_alias(fabsl, fabs) 15cdb65da5Sriastradh #endif 16cdb65da5Sriastradh 1795a63d48Schs double 1895a63d48Schs fabs(double val) 1995a63d48Schs { 2095a63d48Schs 21d5e310b8Sperry __asm volatile("fabs,dbl %0,%0" : "+f" (val)); 2295a63d48Schs return (val); 2395a63d48Schs } 24