blob: 091f2cd530783770060fc7225d90cb7873c30232 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
/* Copyright (C) 2015 by Red Hat, Incorporated. All rights reserved.
*
* Permission to use, copy, modify, and distribute this software
* is freely granted, provided that this notice is preserved.
*/
#include <complex.h>
#include <math.h>
long double
cabsl (long double complex z)
{
#ifdef _LDBL_EQ_DBL
return cabs (z);
#else
return hypotl (creall (z), cimagl (z));
#endif
}
|
