Commit 0618ee31 by Andreas Jaeger Committed by Andreas Jaeger

libgfortran.h: Add proper defines where needed.


        * libgfortran.h: Add proper defines where needed.

From-SVN: r106741
parent cd9ed4b4
2005-11-10 Andreas Jaeger <aj@suse.de> 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 * libgfortran.h: Add missing prototypes for internal_pack
functions. functions.
......
...@@ -567,8 +567,10 @@ internal_proto(internal_pack_4); ...@@ -567,8 +567,10 @@ internal_proto(internal_pack_4);
GFC_INTEGER_8 *internal_pack_8 (gfc_array_i8 *); GFC_INTEGER_8 *internal_pack_8 (gfc_array_i8 *);
internal_proto(internal_pack_8); internal_proto(internal_pack_8);
#if defined HAVE_GFC_INTEGER_16
GFC_INTEGER_16 *internal_pack_16 (gfc_array_i16 *); GFC_INTEGER_16 *internal_pack_16 (gfc_array_i16 *);
internal_proto(internal_pack_16); internal_proto(internal_pack_16);
#endif
GFC_COMPLEX_4 *internal_pack_c4 (gfc_array_c4 *); GFC_COMPLEX_4 *internal_pack_c4 (gfc_array_c4 *);
internal_proto(internal_pack_c4); internal_proto(internal_pack_c4);
...@@ -576,8 +578,10 @@ internal_proto(internal_pack_c4); ...@@ -576,8 +578,10 @@ internal_proto(internal_pack_c4);
GFC_COMPLEX_8 *internal_pack_c8 (gfc_array_c8 *); GFC_COMPLEX_8 *internal_pack_c8 (gfc_array_c8 *);
internal_proto(internal_pack_c8); internal_proto(internal_pack_c8);
#if defined HAVE_GFC_COMPLEX_10
GFC_COMPLEX_10 *internal_pack_c10 (gfc_array_c10 *); GFC_COMPLEX_10 *internal_pack_c10 (gfc_array_c10 *);
internal_proto(internal_pack_c10); internal_proto(internal_pack_c10);
#endif
extern void internal_unpack_4 (gfc_array_i4 *, const GFC_INTEGER_4 *); extern void internal_unpack_4 (gfc_array_i4 *, const GFC_INTEGER_4 *);
internal_proto(internal_unpack_4); internal_proto(internal_unpack_4);
...@@ -585,8 +589,10 @@ 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 *); extern void internal_unpack_8 (gfc_array_i8 *, const GFC_INTEGER_8 *);
internal_proto(internal_unpack_8); internal_proto(internal_unpack_8);
#if defined HAVE_GFC_INTEGER_16
extern void internal_unpack_16 (gfc_array_i16 *, const GFC_INTEGER_16 *); extern void internal_unpack_16 (gfc_array_i16 *, const GFC_INTEGER_16 *);
internal_proto(internal_unpack_16); internal_proto(internal_unpack_16);
#endif
extern void internal_unpack_c4 (gfc_array_c4 *, const GFC_COMPLEX_4 *); extern void internal_unpack_c4 (gfc_array_c4 *, const GFC_COMPLEX_4 *);
internal_proto(internal_unpack_c4); internal_proto(internal_unpack_c4);
...@@ -594,8 +600,10 @@ 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 *); extern void internal_unpack_c8 (gfc_array_c8 *, const GFC_COMPLEX_8 *);
internal_proto(internal_unpack_c8); internal_proto(internal_unpack_c8);
#if defined HAVE_GFC_COMPLEX_10
extern void internal_unpack_c10 (gfc_array_c10 *, const GFC_COMPLEX_10 *); extern void internal_unpack_c10 (gfc_array_c10 *, const GFC_COMPLEX_10 *);
internal_proto(internal_unpack_c10); internal_proto(internal_unpack_c10);
#endif
/* string_intrinsics.c */ /* string_intrinsics.c */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment