OpenLibm/src/w_cabs.c

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

#include "cdefs-compat.h"
//__FBSDID("$FreeBSD: src/lib/msun/src/w_cabs.c,v 1.7 2008/03/30 20:03:06 das Exp $");

#include <float.h>
#include <openlibm.h>
#include <openlibm_complex.h>

#include "math_private.h"

DLLEXPORT double
cabs(double complex z)
{
	return hypot(creal(z), cimag(z));
}

#if LDBL_MANT_DIG == 53
__weak_reference(cabs, cabsl);
#endif
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00			`/*`
			`* cabs() wrapper for hypot().`
			`*`
			`* Written by J.T. Conklin, <jtc@wimsey.com>`
			`* Placed into the Public Domain, 1994.`
			`*/`

initial attempt getting everything to build on windows 2012-04-09 02:03:36 +02:00			`#include "cdefs-compat.h"`
Comment out __FBSDID 2011-12-15 07:16:26 +01:00			`//__FBSDID("$FreeBSD: src/lib/msun/src/w_cabs.c,v 1.7 2008/03/30 20:03:06 das Exp $");`
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00
			`#include <float.h>`
Replace math.h with openlibm.h Remove man 2011-12-15 07:24:24 +01:00			`#include <openlibm.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			`#include <openlibm_complex.h>`

add DLLEXPORT to files in src and `int isopenlibm() = 1` function" 2013-08-03 11:15:47 +02:00			`#include "math_private.h"`
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00
add DLLEXPORT to files in src and `int isopenlibm() = 1` function" 2013-08-03 11:15:47 +02:00			`DLLEXPORT double`
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00			`cabs(double complex z)`
			`{`
			`return hypot(creal(z), cimag(z));`
			`}`

			`#if LDBL_MANT_DIG == 53`
			`__weak_reference(cabs, cabsl);`
			`#endif`