diff options
author | Jakub Jelinek <jakub@redhat.com> | 2011-01-16 17:55:27 +0100 |
---|---|---|
committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2011-01-16 17:55:27 +0100 |
commit | e313241f91a24365102a657ff8bb04a647b7963b (patch) | |
tree | 252065baee12c4b6545a47616cc3a36114d3be22 /libquadmath/quadmath.h | |
parent | 327f73c19ef091381ecc8a57dd0bb696732c3f0f (diff) | |
download | gcc-e313241f91a24365102a657ff8bb04a647b7963b.zip gcc-e313241f91a24365102a657ff8bb04a647b7963b.tar.gz gcc-e313241f91a24365102a657ff8bb04a647b7963b.tar.bz2 |
re PR fortran/46625 (libquadmath: Mangle internal symbols; rename __float128 <-> string functions)
PR fortran/46625
* quadmath.map (QUADMATH_1.0): Remove quadmath_strtopQ
and quadmath_dtoaq. Add strtoflt128 and quadmath_flt128tostr.
* quadmath_weak.h (quadmath_strtopQ, quadmath_dtoaq): Remove.
(strtoflt128, quadmath_flt128tostr): Add.
* gdtoa/strtopQ.c (quadmath_strtopQ): Rename to...
(strtoflt128): ... this. Return __float128, instead of writing
to memory pointed by last argument.
* quadmath.h: Use C style comments instead of C++ style.
(quadmath_strtopQ, quadmath_dtoaq): Remove prototypes.
(strtoflt128, quadmath_flt128tostr): Add prototypes.
* libquadmath.texi (quadmath_dtoaq): Rename to quadmath_flt128tostr.
(quadmath_strtopQ): Rename to strtoflt128. Adjust prototype,
adjust examples.
* quadmath_io.c (quadmath_dtoaq): Rename to...
(quadmath_flt128tostr): ... this.
libgfortran/
* io/write_float.def (DTOAQ): Use quadmath_flt128tostr
instead of quadmath_dtoa.
* io/transfer128.c (tmp1, tmp2): New variables, bring in
strtoflt128 and quadmath_flt128tostr.
(transfer_real128, transfer_real128_write, transfer_complex128,
transfer_complex128_write): Remove tmp1/tmp2 variables.
* io/read.c (convert_real): Use strtoflt128 instead of
quadmath_strtopQ, adjust for the changed arguments and return
value.
From-SVN: r168856
Diffstat (limited to 'libquadmath/quadmath.h')
-rw-r--r-- | libquadmath/quadmath.h | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/libquadmath/quadmath.h b/libquadmath/quadmath.h index 95fab71..25ef413 100644 --- a/libquadmath/quadmath.h +++ b/libquadmath/quadmath.h @@ -23,8 +23,8 @@ Boston, MA 02110-1301, USA. */ #include <stdlib.h> -// Define the complex type corresponding to __float128 -// ("_Complex __float128" is not allowed) +/* Define the complex type corresponding to __float128 + ("_Complex __float128" is not allowed) */ typedef _Complex float __attribute__((mode(TC))) __complex128; #ifdef __cplusplus @@ -35,7 +35,7 @@ typedef _Complex float __attribute__((mode(TC))) __complex128; # define __quadmath_nth(fct) __attribute__((__nothrow__)) fct #endif -// Prototypes for real functions +/* Prototypes for real functions */ extern __float128 acosq (__float128) __quadmath_throw; extern __float128 acoshq (__float128) __quadmath_throw; extern __float128 asinq (__float128) __quadmath_throw; @@ -103,7 +103,7 @@ extern __float128 y1q (__float128) __quadmath_throw; extern __float128 ynq (int, __float128) __quadmath_throw; -// Prototypes for complex functions +/* Prototypes for complex functions */ extern __float128 cabsq (__complex128) __quadmath_throw; extern __float128 cargq (__complex128) __quadmath_throw; extern __float128 cimagq (__complex128) __quadmath_throw; @@ -130,13 +130,13 @@ extern __complex128 ctanq (__complex128) __quadmath_throw; extern __complex128 ctanhq (__complex128) __quadmath_throw; -// Prototypes for our I/O functions -extern int quadmath_strtopQ (const char *, char **, void *) __quadmath_throw; -extern void quadmath_dtoaq (char *, size_t, size_t, __float128) +/* Prototypes for string <-> __float128 conversion functions */ +extern __float128 strtoflt128 (const char *, char **) __quadmath_throw; +extern void quadmath_flt128tostr (char *, size_t, size_t, __float128) __quadmath_throw; -// Macros +/* Macros */ #define FLT128_MAX 1.18973149535723176508575932662800702e4932Q #define FLT128_MIN 3.36210314311209350626267781732175260e-4932Q #define FLT128_EPSILON 1.92592994438723585305597794258492732e-34Q @@ -144,8 +144,8 @@ extern void quadmath_dtoaq (char *, size_t, size_t, __float128) #define FLT128_MANT_DIG 113 #define FLT128_MIN_EXP (-16381) #define FLT128_MAX_EXP 16384 -// TODO -- One day, we need to add the following macros: -// FLT128_DIG, FLT128_MIN_10_EXP, FLT128_MAX_10_EXP +/* TODO -- One day, we need to add the following macros: + FLT128_DIG, FLT128_MIN_10_EXP, FLT128_MAX_10_EXP */ #define HUGE_VALQ __builtin_huge_valq() |