OpenLibm/src/w_cabsf.c

/*
 * cabsf() wrapper for hypotf().
 *
 * Written by J.T. Conklin, <jtc@wimsey.com>
 * Placed into the Public Domain, 1994.
 */

#include <openlibm_complex.h>
#include <openlibm_math.h>

#include "math_private.h"

DLLEXPORT float
cabsf(z)
	float complex z;
{

	return hypotf(crealf(z), cimagf(z));
}
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00			`/*`
			`* cabsf() wrapper for hypotf().`
			`*`
			`* Written by J.T. Conklin, <jtc@wimsey.com>`
			`* Placed into the Public Domain, 1994.`
			`*/`

Never include <complex.h>. Include <openlibm_complex.h> instead. If we ship with a separate copy of <complex.h>, we should also use this one instead of the one provided by the system. 2015-01-09 13:30:44 +01:00			`#include <openlibm_complex.h>`
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:34:27 +01:00			`#include <openlibm_math.h>`
Never include <complex.h>. Include <openlibm_complex.h> instead. If we ship with a separate copy of <complex.h>, we should also use this one instead of the one provided by the system. 2015-01-09 13:30:44 +01:00
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00			`#include "math_private.h"`

add DLLEXPORT to files in src and `int isopenlibm() = 1` function" 2013-08-03 11:15:47 +02:00			`DLLEXPORT float`
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00			`cabsf(z)`
			`float complex z;`
			`{`

			`return hypotf(crealf(z), cimagf(z));`
			`}`