diff options
Diffstat (limited to 'lib/msun/src/w_cabsf.c')
-rw-r--r-- | lib/msun/src/w_cabsf.c | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/lib/msun/src/w_cabsf.c b/lib/msun/src/w_cabsf.c new file mode 100644 index 0000000..e7bfe22 --- /dev/null +++ b/lib/msun/src/w_cabsf.c @@ -0,0 +1,23 @@ +/* + * cabsf() wrapper for hypotf(). + * + * Written by J.T. Conklin, <jtc@wimsey.com> + * Placed into the Public Domain, 1994. + */ + +#ifndef lint +static const char rcsid[] = + "$FreeBSD$"; +#endif /* not lint */ + +#include <complex.h> +#include <math.h> +#include "math_private.h" + +float +cabsf(z) + float complex z; +{ + + return hypotf(crealf(z), cimagf(z)); +} |