compiler/stdc/math/w_cabs.c

   1 /*
   2  * cabs() wrapper for hypot().
   3  *
   4  * Written by J.T. Conklin, <jtc@wimsey.com>
   5  * Placed into the Public Domain, 1994.
   6  */
   7
   8 #ifndef lint
   9 static const char rcsid[] =
  10   "$FreeBSD: src/lib/msun/src/w_cabs.c,v 1.7 2008/03/30 20:03:06 das Exp $";
  11 #endif /* not lint */
  12
  13 #include <float.h>
  14 #include <complex.h>
  15 #include "math.h"
  16
  17 double
  18 cabs(double complex z)
  19 {
  20         return hypot(creal(z), cimag(z));
  21 }
  22
  23 #if     LDBL_MANT_DIG == DBL_MANT_DIG
  24 AROS_MAKE_ASM_SYM(typeof(cabsl), cabsl, AROS_CSYM_FROM_ASM_NAME(cabsl), AROS_CSYM_FROM_ASM_NAME(cabs));
  25 AROS_EXPORT_ASM_SYM(AROS_CSYM_FROM_ASM_NAME(cabsl));
  26 #endif