libgfortran.h: Add missing prototypes for internal_pack functions.
authorAndreas Jaeger <aj@gcc.gnu.org>
Thu, 10 Nov 2005 11:21:53 +0000 (12:21 +0100)
committerAndreas Jaeger <aj@gcc.gnu.org>
Thu, 10 Nov 2005 11:21:53 +0000 (12:21 +0100)
        * libgfortran.h: Add missing prototypes for internal_pack
        functions.

From-SVN: r106730

libgfortran/ChangeLog
libgfortran/libgfortran.h

index f23c9c1375a8a047b1d59ff64c9d5f58d9a54778..1d796a58298a232b5a1ea2a857646c2ce452fee5 100644 (file)
@@ -1,3 +1,8 @@
+2005-11-10  Andreas Jaeger  <aj@suse.de>
+
+       * libgfortran.h: Add missing prototypes for internal_pack
+       functions.
+
 2005-11-06  Janne Blomqvist <jb@gcc.gnu.org>
 
        PR fortran/24174
@@ -5,7 +10,7 @@
        * io/io.h: Add argument to prototypes, add prototypes for
        size_from_*_kind functions.
        * io/list_read.c (read_complex): Add size argument, use
-       it. 
+       it.
        (list_formatted_read): Add size argument, cleanup.
        (list_formatted_read_scalar): Add size argument.
        (nml_read_obj): Fix for padding.
        * Makefile.in: Regenerate.
 
 2005-10-28  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
-       
+
 
        * Makefile.am (intrinsics): Add signal.c.
        * Makefile.in: Regenerate.
index 791a6f899a0ed0f937b279bf5530c84256fe8357..032dd9509f0de34b74a56d0fd3646c683bf8d45b 100644 (file)
@@ -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 *,