w_cabs.c revision 177758
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#include <sys/cdefs.h> 9__FBSDID("$FreeBSD: head/lib/msun/src/w_cabs.c 177758 2008-03-30 20:03:06Z das $"); 10 11#include <complex.h> 12#include <float.h> 13#include <math.h> 14 15double 16cabs(double complex z) 17{ 18 return hypot(creal(z), cimag(z)); 19} 20 21#if LDBL_MANT_DIG == 53 22__weak_reference(cabs, cabsl); 23#endif 24