diff options
| author | Andreas Jaeger <aj@gcc.gnu.org> | 2005-11-10 12:21:53 +0100 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2005-11-10 12:21:53 +0100 |
| commit | e82726f937a0c71adc3222d3b5dd14edbace81f9 (patch) | |
| tree | d4aaeedac43004d5df1f3c7d7edce9f141c2f2d4 /libgfortran/libgfortran.h | |
| parent | 7fd6021841474041dcb492e1f3131777dbb5142c (diff) | |
| download | gcc-e82726f937a0c71adc3222d3b5dd14edbace81f9.zip gcc-e82726f937a0c71adc3222d3b5dd14edbace81f9.tar.gz gcc-e82726f937a0c71adc3222d3b5dd14edbace81f9.tar.bz2 | |
libgfortran.h: Add missing prototypes for internal_pack functions.
* libgfortran.h: Add missing prototypes for internal_pack
functions.
From-SVN: r106730
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index 791a6f8..032dd95 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -559,7 +559,7 @@ internal_proto(reshape_packed); /* Repacking functions. */ -/* ??? These eight aren't currently used by the compiler, though we +/* ??? These aren't currently used by the compiler, though we certainly could do so. */ GFC_INTEGER_4 *internal_pack_4 (gfc_array_i4 *); internal_proto(internal_pack_4); @@ -567,24 +567,36 @@ internal_proto(internal_pack_4); GFC_INTEGER_8 *internal_pack_8 (gfc_array_i8 *); internal_proto(internal_pack_8); +GFC_INTEGER_16 *internal_pack_16 (gfc_array_i16 *); +internal_proto(internal_pack_16); + GFC_COMPLEX_4 *internal_pack_c4 (gfc_array_c4 *); internal_proto(internal_pack_c4); GFC_COMPLEX_8 *internal_pack_c8 (gfc_array_c8 *); internal_proto(internal_pack_c8); +GFC_COMPLEX_10 *internal_pack_c10 (gfc_array_c10 *); +internal_proto(internal_pack_c10); + extern void internal_unpack_4 (gfc_array_i4 *, const GFC_INTEGER_4 *); internal_proto(internal_unpack_4); extern void internal_unpack_8 (gfc_array_i8 *, const GFC_INTEGER_8 *); internal_proto(internal_unpack_8); +extern void internal_unpack_16 (gfc_array_i16 *, const GFC_INTEGER_16 *); +internal_proto(internal_unpack_16); + extern void internal_unpack_c4 (gfc_array_c4 *, const GFC_COMPLEX_4 *); internal_proto(internal_unpack_c4); extern void internal_unpack_c8 (gfc_array_c8 *, const GFC_COMPLEX_8 *); internal_proto(internal_unpack_c8); +extern void internal_unpack_c10 (gfc_array_c10 *, const GFC_COMPLEX_10 *); +internal_proto(internal_unpack_c10); + /* string_intrinsics.c */ extern GFC_INTEGER_4 compare_string (GFC_INTEGER_4, const char *, |