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 /libgfortran/io/read.c | |
| 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 'libgfortran/io/read.c')
| -rw-r--r-- | libgfortran/io/read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index 33486fa2..50b1b40 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -165,7 +165,7 @@ convert_real (st_parameter_dt *dtp, void *dest, const char *buffer, int length) #if defined(HAVE_GFC_REAL_16) # if defined(GFC_REAL_16_IS_FLOAT128) case 16: - __qmath_(quadmath_strtopQ) (buffer, NULL, dest); + *((GFC_REAL_16*) dest) = __qmath_(strtoflt128) (buffer, NULL); break; # elif defined(HAVE_STRTOLD) case 16: |