xref: /relibc/openlibm/src/w_cabsl.c (revision 4f5112ea59cd2488b806c68b41e95dc31ebc8f0b)
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  * Modified by Steven G. Kargl for the long double type.
8  */
9 
10 #include "cdefs-compat.h"
11 //__FBSDID("$FreeBSD: src/lib/msun/src/w_cabsl.c,v 1.1 2008/03/30 20:02:03 das Exp $");
12 
13 #include <openlibm_complex.h>
14 #include <openlibm_math.h>
15 
16 #include "math_private.h"
17 
18 OLM_DLLEXPORT long double
19 cabsl(long double complex z)
20 {
21 	return hypotl(creall(z), cimagl(z));
22 }
23