diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2022-01-04 10:37:48 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@redhat.com> | 2022-01-11 23:49:48 +0100 |
| commit | 07c60b8e33c614a6cdd9fe3de7f409319b6a239a (patch) | |
| tree | 67f8ad50f7a5163e2ff5f9c1b1936decc874e1e0 /libgfortran/gfortran.map | |
| parent | bff4226f5a01da2f93d4e096a1c9317a553438a3 (diff) | |
fortran, libgfortran: -mabi=ieeelongdouble I/O
The following patch adds the compiler and library side of -mabi=ieeelongdouble
I/O support.
2022-01-04 Jakub Jelinek <jakub@redhat.com>
gcc/fortran/
* trans-io.c (transfer_namelist_element): Use gfc_type_abi_kind,
formatting fixes.
(transfer_expr): Use gfc_type_abi_kind, use *REAL128* APIs even
for abi_kind == 17.
libgfortran/
* libgfortran.h (__acoshieee128, __acosieee128, __asinhieee128,
__asinieee128, __atan2ieee128, __atanhieee128, __atanieee128,
__coshieee128, __cosieee128, __erfieee128, __expieee128,
__fabsieee128, __jnieee128, __log10ieee128, __logieee128,
__powieee128, __sinhieee128, __sinieee128, __sqrtieee128,
__tanhieee128, __tanieee128, __ynieee128): Formatting fixes.
(__strtoieee128, __snprintfieee128): Declare.
* io/io.h (default_width_for_float, default_precision_for_float):
Handle kind == 17.
* io/size_from_kind.c (size_from_real_kind, size_from_complex_kind):
Likewise.
* io/read.c (set_integer, si_max, convert_real, convert_infnan,
read_f): Likewise.
* io/write.c (extract_uint, size_from_kind, set_fnode_default):
Likewise.
* io/write_float.def (DTOA2Q, FDTOA2Q): Define for HAVE_GFC_REAL_17.
(determine_en_precision, get_float_string): Handle kind == 17.
* io/transfer128.c: Use also for HAVE_GFC_REAL_17, but don't drag in
libquadmath if POWER_IEEE128.
* Makefile.am (comma, PREPROCESS): New variables.
(gfortran.ver): New goal.
(version_arg, version_dep): Use gfortran.ver instead of
$(srcdir)/gfortran.map.
(gfortran.map-sun): Depend on and use gfortran.ver instead of
$(srcdir)/gfortran.map.
(BUILT_SOURCES): Add $(version_dep).
* Makefile.in: Regenerated.
* gfortran.map (GFORTRAN_8): Don't export
_gfortran_transfer_complex128, _gfortran_transfer_complex128_write,
_gfortran_transfer_real128 and _gfortran_transfer_real128_write if
HAVE_GFC_REAL_17 is defined.
(GFORTRAN_12): Export those here instead.
Diffstat (limited to 'libgfortran/gfortran.map')
| -rw-r--r-- | libgfortran/gfortran.map | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/libgfortran/gfortran.map b/libgfortran/gfortran.map index 8937b4a2903..e0e795c3d48 100644 --- a/libgfortran/gfortran.map +++ b/libgfortran/gfortran.map @@ -1295,8 +1295,10 @@ GFORTRAN_8 { _gfortran_transfer_character_wide; _gfortran_transfer_character_wide_write; _gfortran_transfer_character_write; +#ifndef HAVE_GFC_REAL_17 _gfortran_transfer_complex128; _gfortran_transfer_complex128_write; +#endif _gfortran_transfer_complex; _gfortran_transfer_complex_write; _gfortran_transfer_derived; @@ -1304,8 +1306,10 @@ GFORTRAN_8 { _gfortran_transfer_integer_write; _gfortran_transfer_logical; _gfortran_transfer_logical_write; +#ifndef HAVE_GFC_REAL_17 _gfortran_transfer_real128; _gfortran_transfer_real128_write; +#endif _gfortran_transfer_real; _gfortran_transfer_real_write; _gfortran_ttynam; @@ -1748,4 +1752,10 @@ GFORTRAN_12 { _gfortran_sproduct_c17; _gfortran_ssum_c17; _gfortran_sum_c17; +#ifdef HAVE_GFC_REAL_17 + _gfortran_transfer_complex128; + _gfortran_transfer_complex128_write; + _gfortran_transfer_real128; + _gfortran_transfer_real128_write; +#endif } GFORTRAN_10.2; |