[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