libgfortran.h: Add proper defines where needed.

        * libgfortran.h: Add proper defines where needed.

From-SVN: r106741

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 1d796a58298a232b5a1ea2a857646c2ce452fee5..6ee5271e91d434bde7b6e8360234578da95f68cc 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-10  Andreas Jaeger  <aj@suse.de>
+
+       * libgfortran.h: Add proper defines where needed.
+
 2005-11-10  Andreas Jaeger  <aj@suse.de>
 
        * libgfortran.h: Add missing prototypes for internal_pack

diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h
index 032dd9509f0de34b74a56d0fd3646c683bf8d45b..eca86f92bccc6025d24b829e00f13c942dfb44b7 100644 (file)
--- a/libgfortran/libgfortran.h
+++ b/libgfortran/libgfortran.h
@@ -567,8 +567,10 @@ internal_proto(internal_pack_4);
 GFC_INTEGER_8 *internal_pack_8 (gfc_array_i8 *);
 internal_proto(internal_pack_8);
 
+#if defined HAVE_GFC_INTEGER_16
 GFC_INTEGER_16 *internal_pack_16 (gfc_array_i16 *);
 internal_proto(internal_pack_16);
+#endif
 
 GFC_COMPLEX_4 *internal_pack_c4 (gfc_array_c4 *);
 internal_proto(internal_pack_c4);
@@ -576,8 +578,10 @@ internal_proto(internal_pack_c4);
 GFC_COMPLEX_8 *internal_pack_c8 (gfc_array_c8 *);
 internal_proto(internal_pack_c8);
 
+#if defined HAVE_GFC_COMPLEX_10
 GFC_COMPLEX_10 *internal_pack_c10 (gfc_array_c10 *);
 internal_proto(internal_pack_c10);
+#endif
 
 extern void internal_unpack_4 (gfc_array_i4 *, const GFC_INTEGER_4 *);
 internal_proto(internal_unpack_4);
@@ -585,8 +589,10 @@ internal_proto(internal_unpack_4);
 extern void internal_unpack_8 (gfc_array_i8 *, const GFC_INTEGER_8 *);
 internal_proto(internal_unpack_8);
 
+#if defined HAVE_GFC_INTEGER_16
 extern void internal_unpack_16 (gfc_array_i16 *, const GFC_INTEGER_16 *);
 internal_proto(internal_unpack_16);
+#endif
 
 extern void internal_unpack_c4 (gfc_array_c4 *, const GFC_COMPLEX_4 *);
 internal_proto(internal_unpack_c4);
@@ -594,8 +600,10 @@ internal_proto(internal_unpack_c4);
 extern void internal_unpack_c8 (gfc_array_c8 *, const GFC_COMPLEX_8 *);
 internal_proto(internal_unpack_c8);
 
+#if defined HAVE_GFC_COMPLEX_10
 extern void internal_unpack_c10 (gfc_array_c10 *, const GFC_COMPLEX_10 *);
 internal_proto(internal_unpack_c10);
+#endif
 
 /* string_intrinsics.c */