[patch, libgfortran] Fix m4 file generation

Tobias Burnus burnus@net-b.de
Fri Feb 9 22:39:00 GMT 2007


Hi,

FX Coudert wrote:
> Also, with your patch, some of the regenerated files (that are
> regenerated before the build failure) are wrong:
> -  /* h.* indicates the shift array.  */
> +  /* h.* indicates the  array.  */
I think this is an older problem. At least I had the same problem when I
regenerated the files after the -HUGE-1 change.

It actually occurs with m4 directly:

$ echo "  /* h.* indicates the shift array.  */" | m4
  /* h.* indicates the  array.  */


Possible solution:

Index: libgfortran/m4/cshift1.m4
===================================================================
--- libgfortran/m4/cshift1.m4   (Revision 121776)
+++ libgfortran/m4/cshift1.m4   (Arbeitskopie)
@@ -56,7 +56,7 @@
   index_type soffset;
   const char *sptr;
   const char *src;
-  /* h.* indicates the shift array.  */
+`  /* h.* indicates the shift array.  */'
   index_type hstride[GFC_MAX_DIMENSIONS];
   index_type hstride0;
   const atype_name *hptr;
@@ -145,7 +145,7 @@

   while (rptr)
     {
-      /* Do the shift for this dimension.  */
+`      /* Do the shift for this dimension.  */'
       sh = *hptr;
       sh = (div (sh, len)).rem;
       if (sh < 0)



Tobias



More information about the Fortran mailing list