mirror of
https://git.planet-casio.com/Lephenixnoir/OpenLibm.git
synced 2025-04-04 09:37:13 +02:00
9ab9db387d
OpenLibm uses the __weak_reference() macro for platforms where double and long double use the same layout. That way functions only need to be provided by the library once. The point is, in this specific case we want to use strong references; not weak references. Strong references can be used to give a symbol a second name. If you look at the resulting object file, you will have two symbols with the same offset and size. Weak references are different, in the sense that they are marked in such a way that they act as fallbacks. They are only used if an explicitly matching symbol is missing.
25 lines
484 B
C
25 lines
484 B
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
|
|
__strong_reference(cabs, cabsl);
|
|
#endif
|