diff options
author | Jakub Jelinek <jakub@redhat.com> | 2021-12-31 16:58:32 +0100 |
---|---|---|
committer | Jakub Jelinek <jakub@redhat.com> | 2022-01-11 23:41:02 +0100 |
commit | 23d11a0adc7dc735634d6a47b9efc13367b08155 (patch) | |
tree | 1980e55f45ccbb50f835dd3a5f2d937aed4852bd /libgfortran/libgfortran.h | |
parent | 6f4977fc8eb1aecf7668cad626ead071fd64ff51 (diff) | |
download | gcc-23d11a0adc7dc735634d6a47b9efc13367b08155.zip gcc-23d11a0adc7dc735634d6a47b9efc13367b08155.tar.gz gcc-23d11a0adc7dc735634d6a47b9efc13367b08155.tar.bz2 |
libgfortran: Small progress on the library side
The following patch quiets
../../../libgfortran/generated/in_pack_r17.c:35:1: warning: no previous prototype for ‘internal_pack_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/in_pack_c17.c:35:1: warning: no previous prototype for ‘internal_pack_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/in_unpack_r17.c:33:1: warning: no previous prototype for ‘internal_unpack_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/in_unpack_c17.c:33:1: warning: no previous prototype for ‘internal_unpack_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/pack_r17.c:73:1: warning: no previous prototype for ‘pack_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/pack_c17.c:73:1: warning: no previous prototype for ‘pack_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/unpack_r17.c:34:1: warning: no previous prototype for ‘unpack0_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/unpack_r17.c:178:1: warning: no previous prototype for ‘unpack1_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/unpack_c17.c:34:1: warning: no previous prototype for ‘unpack0_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/unpack_c17.c:178:1: warning: no previous prototype for ‘unpack1_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/spread_r17.c:34:1: warning: no previous prototype for ‘spread_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/spread_r17.c:230:1: warning: no previous prototype for ‘spread_scalar_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/spread_c17.c:34:1: warning: no previous prototype for ‘spread_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/spread_c17.c:230:1: warning: no previous prototype for ‘spread_scalar_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/cshift0_r17.c:33:1: warning: no previous prototype for ‘cshift0_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/cshift0_c17.c:33:1: warning: no previous prototype for ‘cshift0_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/cshift1_4_r17.c:32:1: warning: no previous prototype for ‘cshift1_4_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/cshift1_4_c17.c:32:1: warning: no previous prototype for ‘cshift1_4_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/cshift1_8_r17.c:32:1: warning: no previous prototype for ‘cshift1_8_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/cshift1_8_c17.c:32:1: warning: no previous prototype for ‘cshift1_8_c17’ [-Wmissing-prototypes]
../../../libgfortran/generated/cshift1_16_r17.c:32:1: warning: no previous prototype for ‘cshift1_16_r17’ [-Wmissing-prototypes]
../../../libgfortran/generated/cshift1_16_c17.c:32:1: warning: no previous prototype for ‘cshift1_16_c17’ [-Wmissing-prototypes]
warnings during libgfortran build and exports the new entrypoints.
Note, not all of them, clearly e.g. there are fewer *_r17* entrypoints than
*_r16* entrypoints, so more work is needed.
2021-12-31 Jakub Jelinek <jakub@redhat.com>
* libgfortran.h (internal_pack_r17, internal_pack_c17,
internal_unpack_r17, internal_unpack_c17, pack_r17, pack_c17,
unpack0_r17, unpack0_c17, unpack1_r17, unpack1_c17, spread_r17,
spread_c17, spread_scalar_r17, spread_scalar_c17, cshift0_r17,
cshift0_c17, cshift1_4_r17, cshift1_8_r17, cshift1_16_r17,
cshift1_4_c17, cshift1_8_c17, cshift1_16_c17): Declare.
* gfortran.map (GFORTRAN_12): Export *_r17 and *_c17.
Diffstat (limited to 'libgfortran/libgfortran.h')
-rw-r--r-- | libgfortran/libgfortran.h | 146 |
1 files changed, 146 insertions, 0 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index f0bd50a..e11a06e 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -980,6 +980,11 @@ GFC_REAL_16 *internal_pack_r16 (gfc_array_r16 *); internal_proto(internal_pack_r16); #endif +#if defined HAVE_GFC_REAL_17 +GFC_REAL_17 *internal_pack_r17 (gfc_array_r17 *); +internal_proto(internal_pack_r17); +#endif + GFC_COMPLEX_4 *internal_pack_c4 (gfc_array_c4 *); internal_proto(internal_pack_c4); @@ -996,6 +1001,11 @@ GFC_COMPLEX_16 *internal_pack_c16 (gfc_array_c16 *); internal_proto(internal_pack_c16); #endif +#if defined HAVE_GFC_COMPLEX_17 +GFC_COMPLEX_17 *internal_pack_c17 (gfc_array_c17 *); +internal_proto(internal_pack_c17); +#endif + extern void internal_unpack_1 (gfc_array_i1 *, const GFC_INTEGER_1 *); internal_proto(internal_unpack_1); @@ -1029,6 +1039,11 @@ extern void internal_unpack_r16 (gfc_array_r16 *, const GFC_REAL_16 *); internal_proto(internal_unpack_r16); #endif +#if defined HAVE_GFC_REAL_17 +extern void internal_unpack_r17 (gfc_array_r17 *, const GFC_REAL_17 *); +internal_proto(internal_unpack_r17); +#endif + extern void internal_unpack_c4 (gfc_array_c4 *, const GFC_COMPLEX_4 *); internal_proto(internal_unpack_c4); @@ -1045,6 +1060,11 @@ extern void internal_unpack_c16 (gfc_array_c16 *, const GFC_COMPLEX_16 *); internal_proto(internal_unpack_c16); #endif +#if defined HAVE_GFC_COMPLEX_17 +extern void internal_unpack_c17 (gfc_array_c17 *, const GFC_COMPLEX_17 *); +internal_proto(internal_unpack_c17); +#endif + /* Internal auxiliary functions for the pack intrinsic. */ extern void pack_i1 (gfc_array_i1 *, const gfc_array_i1 *, @@ -1089,6 +1109,12 @@ extern void pack_r16 (gfc_array_r16 *, const gfc_array_r16 *, internal_proto(pack_r16); #endif +#ifdef HAVE_GFC_REAL_17 +extern void pack_r17 (gfc_array_r17 *, const gfc_array_r17 *, + const gfc_array_l1 *, const gfc_array_r17 *); +internal_proto(pack_r17); +#endif + extern void pack_c4 (gfc_array_c4 *, const gfc_array_c4 *, const gfc_array_l1 *, const gfc_array_c4 *); internal_proto(pack_c4); @@ -1109,6 +1135,12 @@ extern void pack_c16 (gfc_array_c16 *, const gfc_array_c16 *, internal_proto(pack_c16); #endif +#ifdef HAVE_GFC_REAL_17 +extern void pack_c17 (gfc_array_c17 *, const gfc_array_c17 *, + const gfc_array_l1 *, const gfc_array_c17 *); +internal_proto(pack_c17); +#endif + /* Internal auxiliary functions for the unpack intrinsic. */ extern void unpack0_i1 (gfc_array_i1 *, const gfc_array_i1 *, @@ -1159,6 +1191,14 @@ internal_proto(unpack0_r16); #endif +#ifdef HAVE_GFC_REAL_17 + +extern void unpack0_r17 (gfc_array_r17 *, const gfc_array_r17 *, + const gfc_array_l1 *, const GFC_REAL_17 *); +internal_proto(unpack0_r17); + +#endif + extern void unpack0_c4 (gfc_array_c4 *, const gfc_array_c4 *, const gfc_array_l1 *, const GFC_COMPLEX_4 *); internal_proto(unpack0_c4); @@ -1183,6 +1223,14 @@ internal_proto(unpack0_c16); #endif +#ifdef HAVE_GFC_COMPLEX_17 + +extern void unpack0_c17 (gfc_array_c17 *, const gfc_array_c17 *, + const gfc_array_l1 *, const GFC_COMPLEX_17 *); +internal_proto(unpack0_c17); + +#endif + extern void unpack1_i1 (gfc_array_i1 *, const gfc_array_i1 *, const gfc_array_l1 *, const gfc_array_i1 *); internal_proto(unpack1_i1); @@ -1225,6 +1273,12 @@ extern void unpack1_r16 (gfc_array_r16 *, const gfc_array_r16 *, internal_proto(unpack1_r16); #endif +#ifdef HAVE_GFC_REAL_17 +extern void unpack1_r17 (gfc_array_r17 *, const gfc_array_r17 *, + const gfc_array_l1 *, const gfc_array_r17 *); +internal_proto(unpack1_r17); +#endif + extern void unpack1_c4 (gfc_array_c4 *, const gfc_array_c4 *, const gfc_array_l1 *, const gfc_array_c4 *); internal_proto(unpack1_c4); @@ -1245,6 +1299,12 @@ extern void unpack1_c16 (gfc_array_c16 *, const gfc_array_c16 *, internal_proto(unpack1_c16); #endif +#ifdef HAVE_GFC_COMPLEX_17 +extern void unpack1_c17 (gfc_array_c17 *, const gfc_array_c17 *, + const gfc_array_l1 *, const gfc_array_c17 *); +internal_proto(unpack1_c17); +#endif + /* Helper functions for spread. */ extern void spread_i1 (gfc_array_i1 *, const gfc_array_i1 *, @@ -1292,6 +1352,13 @@ internal_proto(spread_r16); #endif +#ifdef HAVE_GFC_REAL_17 +extern void spread_r17 (gfc_array_r17 *, const gfc_array_r17 *, + const index_type, const index_type); +internal_proto(spread_r17); + +#endif + extern void spread_c4 (gfc_array_c4 *, const gfc_array_c4 *, const index_type, const index_type); internal_proto(spread_c4); @@ -1314,6 +1381,13 @@ internal_proto(spread_c16); #endif +#ifdef HAVE_GFC_COMPLEX_17 +extern void spread_c17 (gfc_array_c17 *, const gfc_array_c17 *, + const index_type, const index_type); +internal_proto(spread_c17); + +#endif + extern void spread_scalar_i1 (gfc_array_i1 *, const GFC_INTEGER_1 *, const index_type, const index_type); internal_proto(spread_scalar_i1); @@ -1359,6 +1433,13 @@ internal_proto(spread_scalar_r16); #endif +#ifdef HAVE_GFC_REAL_17 +extern void spread_scalar_r17 (gfc_array_r17 *, const GFC_REAL_17 *, + const index_type, const index_type); +internal_proto(spread_scalar_r17); + +#endif + extern void spread_scalar_c4 (gfc_array_c4 *, const GFC_COMPLEX_4 *, const index_type, const index_type); internal_proto(spread_scalar_c4); @@ -1381,6 +1462,13 @@ internal_proto(spread_scalar_c16); #endif +#ifdef HAVE_GFC_COMPLEX_17 +extern void spread_scalar_c17 (gfc_array_c17 *, const GFC_COMPLEX_17 *, + const index_type, const index_type); +internal_proto(spread_scalar_c17); + +#endif + /* string_intrinsics.c */ extern int compare_string (gfc_charlen_type, const char *, @@ -1472,6 +1560,11 @@ void cshift0_r16 (gfc_array_r16 *, const gfc_array_r16 *, ptrdiff_t, int); internal_proto(cshift0_r16); #endif +#ifdef HAVE_GFC_REAL_17 +void cshift0_r17 (gfc_array_r17 *, const gfc_array_r17 *, ptrdiff_t, int); +internal_proto(cshift0_r17); +#endif + void cshift0_c4 (gfc_array_c4 *, const gfc_array_c4 *, ptrdiff_t, int); internal_proto(cshift0_c4); @@ -1488,6 +1581,11 @@ void cshift0_c16 (gfc_array_c16 *, const gfc_array_c16 *, ptrdiff_t, int); internal_proto(cshift0_c16); #endif +#ifdef HAVE_GFC_COMPLEX_17 +void cshift0_c17 (gfc_array_c17 *, const gfc_array_c17 *, ptrdiff_t, int); +internal_proto(cshift0_c17); +#endif + #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_1) void cshift1_4_i1 (gfc_array_i1 * const restrict, const gfc_array_i1 * const restrict, @@ -1640,6 +1738,14 @@ void cshift1_4_r16 (gfc_array_r16 * const restrict, internal_proto(cshift1_4_r16); #endif +#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_REAL_17) +void cshift1_4_r17 (gfc_array_r17 * const restrict, + const gfc_array_r17 * const restrict, + const gfc_array_i4 * const restrict, + const GFC_INTEGER_4 * const restrict); +internal_proto(cshift1_4_r17); +#endif + #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_REAL_4) void cshift1_8_r4 (gfc_array_r4 * const restrict, const gfc_array_r4 * const restrict, @@ -1672,6 +1778,14 @@ void cshift1_8_r16 (gfc_array_r16 * const restrict, internal_proto(cshift1_8_r16); #endif +#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_REAL_17) +void cshift1_8_r17 (gfc_array_r17 * const restrict, + const gfc_array_r17 * const restrict, + const gfc_array_i8 * const restrict, + const GFC_INTEGER_8 * const restrict); +internal_proto(cshift1_8_r17); +#endif + #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_REAL_4) void cshift1_16_r4 (gfc_array_r4 * const restrict, const gfc_array_r4 * const restrict, @@ -1704,6 +1818,14 @@ void cshift1_16_r16 (gfc_array_r16 * const restrict, internal_proto(cshift1_16_r16); #endif +#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_REAL_17) +void cshift1_16_r17 (gfc_array_r17 * const restrict, + const gfc_array_r17 * const restrict, + const gfc_array_i16 * const restrict, + const GFC_INTEGER_16 * const restrict); +internal_proto(cshift1_16_r17); +#endif + #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_COMPLEX_4) void cshift1_4_c4 (gfc_array_c4 * const restrict, const gfc_array_c4 * const restrict, @@ -1736,6 +1858,14 @@ void cshift1_4_c16 (gfc_array_c16 * const restrict, internal_proto(cshift1_4_c16); #endif +#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_COMPLEX_17) +void cshift1_4_c17 (gfc_array_c17 * const restrict, + const gfc_array_c17 * const restrict, + const gfc_array_i4 * const restrict, + const GFC_INTEGER_4 * const restrict); +internal_proto(cshift1_4_c17); +#endif + #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_COMPLEX_4) void cshift1_8_c4 (gfc_array_c4 * const restrict, const gfc_array_c4 * const restrict, @@ -1768,6 +1898,14 @@ void cshift1_8_c16 (gfc_array_c16 * const restrict, internal_proto(cshift1_8_c16); #endif +#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_COMPLEX_17) +void cshift1_8_c17 (gfc_array_c17 * const restrict, + const gfc_array_c17 * const restrict, + const gfc_array_i8 * const restrict, + const GFC_INTEGER_8 * const restrict); +internal_proto(cshift1_8_c17); +#endif + #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_COMPLEX_4) void cshift1_16_c4 (gfc_array_c4 * const restrict, const gfc_array_c4 * const restrict, @@ -1800,6 +1938,14 @@ void cshift1_16_c16 (gfc_array_c16 * const restrict, internal_proto(cshift1_16_c16); #endif +#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_COMPLEX_17) +void cshift1_16_c17 (gfc_array_c17 * const restrict, + const gfc_array_c17 * const restrict, + const gfc_array_i16 * const restrict, + const GFC_INTEGER_16 * const restrict); +internal_proto(cshift1_16_c17); +#endif + /* Prototypes for the POWER __ieee128 functions. */ #ifdef POWER_IEEE128 extern __float128 __acoshieee128 (__float128) __attribute__ ((__nothrow__, __leaf__)); |