mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-11-29 09:30:01 +08:00
fa23b18209
PR fortran/46416 * quadmath.h (cacosq, cacoshq, casinq, casinhq, catanq, catanhq): New prototypes. (M_Eq, M_LOG2Eq, M_LOG10Eq, M_LN2q, M_LN10q, M_PIq, M_PI_2q, M_PI_4q, M_1_PIq, M_2_PIq, M_2_SQRTPIq, M_SQRT2q, M_SQRT1_2q): Define. * quadmath_weak.h (cacosq, cacoshq, casinq, casinhq, catanq, catanhq): Add. * quadmath-imp.h (fpclassifyq, QUADFP_NAN, QUADFP_INFINITE, QUADFP_ZERO, QUADFP_SUBNORMAL, QUADFP_NORMAL): Define. * quadmath.map (QUADMATH_1.0): Add cacosq, cacoshq, casinq, casinhq, catanq and catanhq. * Makefile.am (libquadmath_la_SOURCES): Add math/cacosq.c, math/cacoshq.c, math/casinq.c, math/casinhq.c, math/catanq.c and math/catanhq.c. * Makefile.in: Regenerated. * libquadmath.texi (cacosq, cacoshq, casinq, casinhq, catanq, catanhq): Add. * math/cacoshq.c: New file. * math/cacosq.c: New file. * math/catanq.c: New file. * math/catanhq.c: New file. * math/casinq.c: New file. * math/casinhq.c: New file. * math/hypotq.c (hypotq): Use Q suffix instead of L. * math/atan2q.c (tiny, pi_o_4, pi_o_2, pi, pi_lo, atan2q): Likewise. * math/cosq.c (cosq): Likewise. From-SVN: r168853
177 lines
4.5 KiB
C
177 lines
4.5 KiB
C
/* GCC Quad-Precision Math Library
|
|
Copyright (C) 2010 Free Software Foundation, Inc.
|
|
Written by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
This file is part of the libiberty library.
|
|
Libiberty is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
Libiberty 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
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public
|
|
License along with libiberty; see the file COPYING.LIB. If
|
|
not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
|
|
Boston, MA 02110-1301, USA. */
|
|
|
|
#ifndef QUADMATH_IMP_H
|
|
#define QUADMATH_IMP_H
|
|
|
|
#include <stdint.h>
|
|
#include <stdlib.h>
|
|
#include "quadmath.h"
|
|
#include "config.h"
|
|
|
|
|
|
// Prototypes for internal functions
|
|
extern int32_t __quadmath_rem_pio2q (__float128, __float128 *);
|
|
extern void __quadmath_kernel_sincosq (__float128, __float128, __float128 *,
|
|
__float128 *, int);
|
|
extern __float128 __quadmath_kernel_sinq (__float128, __float128, int);
|
|
extern __float128 __quadmath_kernel_cosq (__float128, __float128);
|
|
|
|
|
|
|
|
// Frankly, if you have __float128, you have 64-bit integers, right?
|
|
#ifndef UINT64_C
|
|
# error "No way!"
|
|
#endif
|
|
|
|
|
|
// If we don't have macros to know endianess, assume little endian
|
|
#if !defined(__BIG_ENDIAN__) && !defined(__LITTLE_ENDIAN__)
|
|
# define __LITTLE_ENDIAN__ 1
|
|
#endif
|
|
|
|
|
|
// Main union type we use to manipulate the floating-point type
|
|
typedef union
|
|
{
|
|
__float128 value;
|
|
|
|
struct
|
|
{
|
|
#if __BIG_ENDIAN__
|
|
unsigned negative:1;
|
|
unsigned exponent:15;
|
|
uint64_t mant_high:48;
|
|
uint64_t mant_low:64;
|
|
#endif
|
|
#if __LITTLE_ENDIAN__
|
|
uint64_t mant_low:64;
|
|
uint64_t mant_high:48;
|
|
unsigned exponent:15;
|
|
unsigned negative:1;
|
|
#endif
|
|
} ieee;
|
|
|
|
struct
|
|
{
|
|
#if __BIG_ENDIAN__
|
|
uint64_t high;
|
|
uint64_t low;
|
|
#endif
|
|
#if __LITTLE_ENDIAN__
|
|
uint64_t low;
|
|
uint64_t high;
|
|
#endif
|
|
} words64;
|
|
|
|
struct
|
|
{
|
|
#if __BIG_ENDIAN__
|
|
uint32_t w0;
|
|
uint32_t w1;
|
|
uint32_t w2;
|
|
uint32_t w3;
|
|
#endif
|
|
#if __LITTLE_ENDIAN__
|
|
uint32_t w3;
|
|
uint32_t w2;
|
|
uint32_t w1;
|
|
uint32_t w0;
|
|
#endif
|
|
} words32;
|
|
|
|
struct
|
|
{
|
|
#if __BIG_ENDIAN__
|
|
unsigned negative:1;
|
|
unsigned exponent:15;
|
|
unsigned quiet_nan:1;
|
|
uint64_t mant_high:47;
|
|
uint64_t mant_low:64;
|
|
#endif
|
|
#if __LITTLE_ENDIAN__
|
|
uint64_t mant_low:64;
|
|
uint64_t mant_high:47;
|
|
unsigned quiet_nan:1;
|
|
unsigned exponent:15;
|
|
unsigned negative:1;
|
|
#endif
|
|
} nan;
|
|
|
|
} ieee854_float128;
|
|
|
|
|
|
/* Get two 64 bit ints from a long double. */
|
|
#define GET_FLT128_WORDS64(ix0,ix1,d) \
|
|
do { \
|
|
ieee854_float128 u; \
|
|
u.value = (d); \
|
|
(ix0) = u.words64.high; \
|
|
(ix1) = u.words64.low; \
|
|
} while (0)
|
|
|
|
/* Set a long double from two 64 bit ints. */
|
|
#define SET_FLT128_WORDS64(d,ix0,ix1) \
|
|
do { \
|
|
ieee854_float128 u; \
|
|
u.words64.high = (ix0); \
|
|
u.words64.low = (ix1); \
|
|
(d) = u.value; \
|
|
} while (0)
|
|
|
|
/* Get the more significant 64 bits of a long double mantissa. */
|
|
#define GET_FLT128_MSW64(v,d) \
|
|
do { \
|
|
ieee854_float128 u; \
|
|
u.value = (d); \
|
|
(v) = u.words64.high; \
|
|
} while (0)
|
|
|
|
/* Set the more significant 64 bits of a long double mantissa from an int. */
|
|
#define SET_FLT128_MSW64(d,v) \
|
|
do { \
|
|
ieee854_float128 u; \
|
|
u.value = (d); \
|
|
u.words64.high = (v); \
|
|
(d) = u.value; \
|
|
} while (0)
|
|
|
|
/* Get the least significant 64 bits of a long double mantissa. */
|
|
#define GET_FLT128_LSW64(v,d) \
|
|
do { \
|
|
ieee854_float128 u; \
|
|
u.value = (d); \
|
|
(v) = u.words64.low; \
|
|
} while (0)
|
|
|
|
|
|
#define IEEE854_FLOAT128_BIAS 0x3fff
|
|
|
|
#define QUADFP_NAN 0
|
|
#define QUADFP_INFINITE 1
|
|
#define QUADFP_ZERO 2
|
|
#define QUADFP_SUBNORMAL 3
|
|
#define QUADFP_NORMAL 4
|
|
#define fpclassifyq(x) \
|
|
__builtin_fpclassify (QUADFP_NAN, QUADFP_INFINITE, QUADFP_NORMAL, \
|
|
QUADFP_SUBNORMAL, QUADFP_ZERO, x)
|
|
|
|
#endif
|