[patch, libfortran] Add prototypes for eoshift0 and eoshift2
Thomas Koenig
Thomas.Koenig@online.de
Mon Jun 13 22:40:00 GMT 2005
Committed as obvious to mainline after regtesting.
I'm not sure that this fixes PR 21594, but it surely won't hurt,
and is better practice anyway.
Thomas
2005-06-12 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/21594
* intrinsics/eoshift0.c: Add prototype for eoshift0.
* intrinsics/eoshift2.c: Add prototype for eoshift2.
-------------- next part --------------
Index: intrinsics/eoshift0.c
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/intrinsics/eoshift0.c,v
retrieving revision 1.11
diff -c -p -r1.11 eoshift0.c
*** intrinsics/eoshift0.c 15 May 2005 15:50:08 -0000 1.11
--- intrinsics/eoshift0.c 13 Jun 2005 22:36:53 -0000
*************** static const char zeros[16] =
*** 41,46 ****
--- 41,50 ----
sizeof(int) < sizeof (index_type). */
static void
+ eoshift0 (gfc_array_char * , const gfc_array_char *,
+ int, const char *, int);
+
+ static void
eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
int shift, const char * pbound, int which)
{
Index: intrinsics/eoshift2.c
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/intrinsics/eoshift2.c,v
retrieving revision 1.11
diff -c -p -r1.11 eoshift2.c
*** intrinsics/eoshift2.c 15 May 2005 15:50:08 -0000 1.11
--- intrinsics/eoshift2.c 13 Jun 2005 22:36:53 -0000
*************** static const char zeros[16] =
*** 41,46 ****
--- 41,50 ----
sizeof(int) < sizeof (index_type). */
static void
+ eoshift2 (gfc_array_char *, const gfc_array_char *,
+ int, const gfc_array_char *, int );
+
+ static void
eoshift2 (gfc_array_char *ret, const gfc_array_char *array,
int shift, const gfc_array_char *bound, int which)
{
More information about the Gcc-patches
mailing list