lib/libc/arch/hppa/gen/fabs.c

   1 /*      $NetBSD: fabs.c,v 1.3 2005/12/24 21:41:01 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 }