Cross Reference: /src/lib/libc/arch/hppa/gen/fabs.c

      1 /*	$NetBSD: fabs.c,v 1.6 2018/11/08 16:29:50 riastradh 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 <sys/cdefs.h>
     10 
     11 #include <math.h>
     12 
     13 #ifndef __HAVE_LONG_DOUBLE
     14 __strong_alias(fabsl, fabs)
     15 #endif
     16 
     17 double
     18 fabs(double val)
     19 {
     20 
     21 	__asm volatile("fabs,dbl %0,%0" : "+f" (val));
     22 	return (val);
     23 }
     24