xref: /aosp_15_r20/bionic/libm/upstream-freebsd/lib/msun/src/w_cabsl.c (revision 8d67ca893c1523eb926b9080dbe4e2ffd2a27ba1)
1 /*
2  * cabs() wrapper for hypot().
3  *
4  * Written by J.T. Conklin, <[email protected]>
5  * Placed into the Public Domain, 1994.
6  *
7  * Modified by Steven G. Kargl for the long double type.
8  */
9 
10 #include <complex.h>
11 #include <math.h>
12 
13 long double
cabsl(long double complex z)14 cabsl(long double complex z)
15 {
16 	return hypotl(creall(z), cimagl(z));
17 }
18