[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