mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-23 18:29:55 +08:00
5e90dd7193
2000-11-20 Benjamin Kosnik <bkoz@redhat.com> * include/bits/std_complex.h: Tweaks, include cmath for abs overloads. * src/complex.cc: Remove cmath include, formatting tweaks, remove dead code. * include/c/bits/std_cmath.h: Formatting tweaks. * testsuite/26_numerics/complex_value.cc: New file, for catching bits gleaned from libstdc++/106. * testsuite/23_containers/vector_ctor.cc (test02): Add test from libstdc++/102. From-SVN: r37591
569 lines
14 KiB
C++
569 lines
14 KiB
C++
// -*- C++ -*- C math library.
|
|
|
|
// Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
|
|
//
|
|
// This file is part of the GNU ISO C++ Library. This library is free
|
|
// software; you can redistribute it and/or modify it under the
|
|
// terms of the GNU General Public License as published by the
|
|
// Free Software Foundation; either version 2, or (at your option)
|
|
// any later version.
|
|
|
|
// This library is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
|
|
// You should have received a copy of the GNU General Public License along
|
|
// with this library; see the file COPYING. If not, write to the Free
|
|
// Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
|
|
// USA.
|
|
|
|
// As a special exception, you may use this file as part of a free software
|
|
// library without restriction. Specifically, if other files instantiate
|
|
// templates or use macros or inline functions from this file, or you compile
|
|
// this file and link it with other files to produce an executable, this
|
|
// file does not by itself cause the resulting executable to be covered by
|
|
// the GNU General Public License. This exception does not however
|
|
// invalidate any other reasons why the executable file might be covered by
|
|
// the GNU General Public License.
|
|
|
|
//
|
|
// ISO C++ 14882: 26.5 C library
|
|
//
|
|
|
|
// Note: This is not a conforming implementation.
|
|
|
|
#ifndef _CPP_CMATH
|
|
#define _CPP_CMATH 1
|
|
|
|
#include <bits/c++config.h>
|
|
#include <bits/std_cstdlib.h>
|
|
|
|
#pragma GCC system_header
|
|
#include_next <math.h>
|
|
|
|
namespace std
|
|
{
|
|
inline long
|
|
abs(long __i) { return ::labs(__i); }
|
|
|
|
inline ldiv_t
|
|
div(long __i, long __j) { return ::ldiv(__i, __j); }
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_FABSF
|
|
inline float
|
|
abs(float __x) { return __builtin_fabsf(__x); }
|
|
#elif _GLIBCPP_HAVE_FABSF
|
|
inline float
|
|
abs(float __x) { return ::fabsf(__x); }
|
|
#else
|
|
inline float
|
|
abs(float __x) { return ::fabs(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_ACOSF
|
|
inline float
|
|
acos(float __x) { return ::acosf(__x); }
|
|
#else
|
|
inline float
|
|
acos(float __x) { return ::acos(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_ASINF
|
|
inline float
|
|
asin(float __x) { return ::asinf(__x); }
|
|
#else
|
|
inline float
|
|
asin(float __x) { return ::asin(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_ATANF
|
|
inline float
|
|
atan(float __x) { return ::atanf(__x); }
|
|
#else
|
|
inline float
|
|
atan(float __x) { return ::atan(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_ATAN2F
|
|
inline float
|
|
atan2(float __y, float __x) { return ::atan2f(__y, __x); }
|
|
#else
|
|
inline float
|
|
atan2(float __y, float __x)
|
|
{ return ::atan2(static_cast<double>(__y), static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_CEILF
|
|
inline float
|
|
ceil(float __x) { return ::ceilf(__x); }
|
|
#else
|
|
inline float
|
|
ceil(float __x) { return ::ceil(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_COSF
|
|
inline float
|
|
cos(float __x) { return __builtin_cosf(__x); }
|
|
#elif _GLIBCPP_HAVE_COSF
|
|
inline float
|
|
cos(float __x) { return ::cosf(__x); }
|
|
#else
|
|
inline float
|
|
cos(float __x) { return ::cos(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_COSHF
|
|
inline float
|
|
cosh(float __x) { return ::coshf(__x); }
|
|
#else
|
|
inline float
|
|
cosh(float __x) { return ::cosh(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_EXPF
|
|
inline float
|
|
exp(float __x) { return ::expf(__x); }
|
|
#else
|
|
inline float
|
|
exp(float __x) { return ::exp(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_FABSF
|
|
inline float
|
|
fabs(float __x) { return __builtin_fabsf(__x); }
|
|
#elif _GLIBCPP_HAVE_FABSF
|
|
inline float
|
|
fabs(float __x) { return ::fabsf(__x); }
|
|
#else
|
|
inline float
|
|
fabs(float __x) { return ::fabs(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_FLOORF
|
|
inline float
|
|
floor(float __x) { return ::floorf(__x); }
|
|
#else
|
|
inline float
|
|
floor(float __x) { return ::floor(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_FMODF
|
|
inline float
|
|
fmod(float __x, float __y) { return ::fmodf(__x, __y); }
|
|
#else
|
|
inline float
|
|
fmod(float __x, float __y)
|
|
{ return ::fmod(static_cast<double>(__x), static_cast<double>(__y)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_FREXPF
|
|
inline float
|
|
frexp(float __x, int* __exp) { return ::frexpf(__x, __exp); }
|
|
#else
|
|
inline float
|
|
frexp(float __x, int* __exp) { return ::frexp(__x, __exp); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_LDEXPF
|
|
inline float
|
|
ldexp(float __x, int __exp) { return ::ldexpf(__x, __exp); }
|
|
#else
|
|
inline float
|
|
ldexp(float __x, int __exp)
|
|
{ return ::ldexp(static_cast<double>(__x), __exp); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_LOGF
|
|
inline float
|
|
log(float __x) { return ::logf(__x); }
|
|
#else
|
|
inline float log(float __x)
|
|
{ return ::log(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_LOG10F
|
|
inline float
|
|
log10(float __x) { return ::log10f(__x); }
|
|
#else
|
|
inline float
|
|
log10(float __x) { return ::log10(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_MODFF
|
|
inline float
|
|
modf(float __x, float* __iptr) { return ::modff(__x, __iptr); }
|
|
#else
|
|
inline float
|
|
modf(float __x, float* __iptr)
|
|
{
|
|
double __tmp;
|
|
double __res = ::modf(static_cast<double>(__x), &__tmp);
|
|
*__iptr = static_cast<float>(__tmp);
|
|
return __res;
|
|
}
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_POWF
|
|
inline float
|
|
pow(float __x, float __y) { return ::powf(__x, __y); }
|
|
#else
|
|
inline float
|
|
pow(float __x, float __y)
|
|
{ return ::pow(static_cast<double>(__x), static_cast<double>(__y)); }
|
|
#endif
|
|
|
|
float
|
|
pow(float, int);
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_SINF
|
|
inline float
|
|
sin(float __x) { return __builtin_sinf(__x); }
|
|
#elif _GLIBCPP_HAVE_SINF
|
|
inline float
|
|
sin(float __x) { return ::sinf(__x); }
|
|
#else
|
|
inline float
|
|
sin(float __x) { return ::sin(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_SINHF
|
|
inline float
|
|
sinh(float __x) { return ::sinhf(__x); }
|
|
#else
|
|
inline float
|
|
sinh(float __x) { return ::sinh(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_SQRTF
|
|
inline float
|
|
sqrt(float __x) { return __builtin_sqrtf(__x); }
|
|
#elif _GLIBCPP_HAVE_SQRTF
|
|
inline float
|
|
sqrt(float __x) { return ::sqrtf(__x); }
|
|
#else
|
|
inline float
|
|
sqrt(float __x) { return ::sqrt(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_TANF
|
|
inline float
|
|
tan(float __x) { return ::tanf(__x); }
|
|
#else
|
|
inline float
|
|
tan(float __x) { return ::tan(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_TANHF
|
|
inline float
|
|
tanh(float __x) { return ::tanhf(__x); }
|
|
#else
|
|
inline float
|
|
tanh(float __x) { return ::tanh(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
|
|
extern "C" double acos(double __x);
|
|
|
|
extern "C" double asin(double __x);
|
|
|
|
extern "C" double atan(double __x);
|
|
|
|
extern "C" double atan2(double __y, double __x);
|
|
|
|
extern "C" double ceil(double __x);
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_COS
|
|
inline double
|
|
cos(double __x) { return __builtin_cos(__x); }
|
|
#else
|
|
extern "C" double cos(double __x);
|
|
#endif
|
|
|
|
extern "C" double cosh(double __x);
|
|
|
|
extern "C" double exp(double __x);
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_FABS
|
|
inline double
|
|
fabs(double __x) { return __builtin_fabs(__x); }
|
|
#else
|
|
extern "C" double fabs(double __x);
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_FABS
|
|
inline double
|
|
abs(double __x) { return __builtin_fabs(__x); }
|
|
#else
|
|
inline double
|
|
abs(double __x) { return fabs(__x); }
|
|
#endif
|
|
|
|
extern "C" double floor(double __x);
|
|
|
|
extern "C" double fmod(double __x, double __y);
|
|
|
|
extern "C" double frexp(double __x, int* __exp);
|
|
|
|
extern "C" double ldexp(double __x, int __exp);
|
|
|
|
extern "C" double log(double __x);
|
|
|
|
extern "C" double log10(double __x);
|
|
|
|
extern "C" double modf(double __x, double* __iptr);
|
|
|
|
extern "C" double pow(double __x, double __y);
|
|
|
|
double
|
|
pow(double __x, int __i);
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_SIN
|
|
inline double
|
|
sin(double __x) { return __builtin_sin(__x); }
|
|
#else
|
|
extern "C" double sin(double __x);
|
|
#endif
|
|
|
|
extern "C" double sinh(double __x);
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_SQRT
|
|
inline double
|
|
sqrt(double __x) { return __builtin_fsqrt(__x); }
|
|
#else
|
|
extern "C" double sqrt(double __x);
|
|
#endif
|
|
|
|
extern "C" double tan(double __x);
|
|
|
|
extern "C" double tanh(double __x);
|
|
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_FABSL
|
|
inline long double
|
|
abs(long double __x) { return __builtin_fabsl(__x); }
|
|
#elif _GLIBCPP_HAVE_FABSL
|
|
inline long double
|
|
abs(long double __x) { return ::fabsl(__x); }
|
|
#else
|
|
inline long double
|
|
abs(long double __x) { return fabs(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_ACOSL
|
|
inline long double
|
|
acos(long double __x) { return ::acosl(__x); }
|
|
#else
|
|
inline long double
|
|
acos(long double __x) { return ::acos(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_ASINL
|
|
inline long double
|
|
asin(long double __x) { return ::asinl(__x); }
|
|
#else
|
|
inline long double
|
|
asin(long double __x) { return ::asin(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_ATANL
|
|
inline long double
|
|
atan(long double __x) { return ::atanl(__x); }
|
|
#else
|
|
inline long double
|
|
atan(long double __x) { return ::atan(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_ATAN2L
|
|
inline long double
|
|
atan2(long double __y, long double __x) { return ::atan2l(__y, __x); }
|
|
#else
|
|
inline long double
|
|
atan2(long double __y, long double __x)
|
|
{ return ::atan2(static_cast<double>(__y), static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_CEILL
|
|
inline long double
|
|
ceil(long double __x) { return ::ceill(__x); }
|
|
#else
|
|
inline long double
|
|
ceil(long double __x) { return ::ceil(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_COSL
|
|
inline long double
|
|
cos(long double __x) { return __builtin_cosl(__x); }
|
|
#elif _GLIBCPP_HAVE_COSL
|
|
inline long double
|
|
cos(long double __x) { return ::cosl(__x); }
|
|
#else
|
|
inline long double
|
|
cos(long double __x) { return ::cos(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_COSHL
|
|
inline long double
|
|
cosh(long double __x) { return ::coshl(__x); }
|
|
#else
|
|
inline long double
|
|
cosh(long double __x) { return ::cosh(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_EXPL
|
|
inline long double
|
|
exp(long double __x) { return ::expl(__x); }
|
|
#else
|
|
inline long double
|
|
exp(long double __x) { return ::exp(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_FABSL
|
|
inline long double
|
|
fabs(long double __x) { return __builtin_fabsl(__x); }
|
|
#elif _GLIBCPP_HAVE_FABSL
|
|
inline long double
|
|
fabs(long double __x) { return ::fabsl(__x); }
|
|
#else
|
|
inline long double
|
|
fabs(long double __x) { return ::fabs(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_FLOORL
|
|
inline long double
|
|
floor(long double __x) { return ::floorl(__x); }
|
|
#else
|
|
inline long double
|
|
floor(long double __x) { return ::floor(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_FMODL
|
|
inline long double
|
|
fmod(long double __x, long double __y) { return ::fmodl(__x, __y); }
|
|
#else
|
|
inline long double
|
|
fmod(long double __x, long double __y)
|
|
{ return ::fmod(static_cast<double>(__x), static_cast<double>(__y)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_FREXPL
|
|
inline long double
|
|
frexp(long double __x, int* __exp) { return ::frexpl(__x, __exp); }
|
|
#else
|
|
inline long double
|
|
frexp(long double __x, int* __exp)
|
|
{ return ::frexp(static_cast<double>(__x), __exp); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_LDEXPL
|
|
inline long double
|
|
ldexp(long double __x, int __exp) { return ::ldexpl(__x, __exp); }
|
|
#else
|
|
inline long double
|
|
ldexp(long double __x, int __exp)
|
|
{ return ::ldexp(static_cast<double>(__x), __exp); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_LOGL
|
|
inline long double
|
|
log(long double __x) { return ::logl(__x); }
|
|
#else
|
|
inline long double
|
|
log(long double __x) { return ::log(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_LOG10L
|
|
inline long double
|
|
log10(long double __x) { return ::log10l(__x); }
|
|
#else
|
|
inline long double
|
|
log10(long double __x) { return ::log10(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_MODFL
|
|
inline long double
|
|
modf(long double __x, long double* __iptr) { return ::modfl(__x, __iptr); }
|
|
#else
|
|
inline long double
|
|
modf(long double __x, long double* __iptr)
|
|
{
|
|
double __tmp;
|
|
double __res = ::modf(static_cast<double>(__x), &__tmp);
|
|
* __iptr = static_cast<long double>(__tmp);
|
|
return __res;
|
|
}
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_POWL
|
|
inline long double
|
|
pow(long double __x, long double __y) { return ::powl(__x, __y); }
|
|
#else
|
|
inline long double
|
|
pow(long double __x, long double __y)
|
|
{ return ::pow(static_cast<double>(__x), static_cast<double>(__y)); }
|
|
#endif
|
|
|
|
long double
|
|
pow(long double, int);
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_SINL
|
|
inline long double
|
|
sin(long double __x) { return __builtin_sinl(__x); }
|
|
#elif _GLIBCPP_HAVE_SINL
|
|
inline long double
|
|
sin(long double __x) { return ::sinl(__x); }
|
|
#else
|
|
inline long double
|
|
sin(long double __x) { return ::sin(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_SINHL
|
|
inline long double
|
|
sinh(long double __x) { return ::sinhl(__x); }
|
|
#else
|
|
inline long double
|
|
sinh(long double __x) { return ::sinh(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE___BUILTIN_SQRTL
|
|
inline long double
|
|
sqrt(long double __x) { return __builtin_sqrtl(__x); }
|
|
#elif _GLIBCPP_HAVE_SQRTL
|
|
inline long double
|
|
sqrt(long double __x) { return ::sqrtl(__x); }
|
|
#else
|
|
inline long double
|
|
sqrt(long double __x) { return ::sqrt(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_TANL
|
|
inline long double
|
|
tan(long double __x) { return ::tanl(__x); }
|
|
#else
|
|
inline long double
|
|
tan(long double __x) { return ::tan(static_cast<double>(__x)); }
|
|
#endif
|
|
|
|
#if _GLIBCPP_HAVE_TANHL
|
|
inline long double
|
|
tanh(long double __x) { return ::tanhl(__x); }
|
|
#else
|
|
inline long double
|
|
tanh(long double __x) { return ::tanh(static_cast<double>(__x)); }
|
|
#endif
|
|
} // std
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|