OpenLibm/src/w_cabsl.c
Ed Schouten 7e5585aaca Rename openlibm.h to openlibm_math.h.
This is a bit more consistent with the naming of the other header files
(openlibm_complex.h and openlibm_fenv.h). Re-add an openlibm.h header
that includes all of the public headers as a shorthand.

Fix up all of the source files to include <openlibm_math.h> instead of
<openlibm.h>. While there, fix ordering of the includes.
2015-01-11 23:37:01 +01:00

23 lines
480 B
C

/*
* cabs() wrapper for hypot().
*
* Written by J.T. Conklin, <jtc@wimsey.com>
* Placed into the Public Domain, 1994.
*
* Modified by Steven G. Kargl for the long double type.
*/
#include "cdefs-compat.h"
//__FBSDID("$FreeBSD: src/lib/msun/src/w_cabsl.c,v 1.1 2008/03/30 20:02:03 das Exp $");
#include <openlibm_complex.h>
#include <openlibm_math.h>
#include "math_private.h"
DLLEXPORT long double
cabsl(long double complex z)
{
return hypotl(creall(z), cimagl(z));
}