This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Release branch (Jeff)? Fixes g77/libf2c NAMELIST bug
- To: egcs-patches at egcs dot cygnus dot com
- Subject: Release branch (Jeff)? Fixes g77/libf2c NAMELIST bug
- From: craig at jcb-sc dot com
- Date: 28 Jun 1999 14:26:39 -0000
- Cc: craig at jcb-sc dot com
Jeff, now that this fix has been made in the Netlib libf2c sources
by Dave Gay, I feel much better about committing it to the 2.95 release
branch. (Also, looking at his patch, I better understand what the
bug was than I did when first coming up with my patch. His fix looks
"obviously correct" to me in every way -- mine did not.)
Is this therefore okay to commit? If so, I'll also work up and commit
an appropriate patch to the docs.
tq vm, (burley)
Mon Jun 28 10:22:30 1999 Craig Burley <craig@jcb-sc.com>
* libI77/rsne.c: Fix NAMELIST bug by applying 19990627
Netlib patch to release branch.
*** g77-e/libf2c/libI77/Version.c.~1~ Wed Jun 16 12:00:43 1999
--- g77-e/libf2c/libI77/Version.c Mon Jun 28 10:23:11 1999
*************** static char junk[] = "\n@(#) LIBI77 VERS
*** 4,8 ****
*/
! char __G77_LIBI77_VERSION__[] = "0.5.25 19990616 (prerelease)";
/*
--- 4,8 ----
*/
! char __G77_LIBI77_VERSION__[] = "0.5.25 19990628 (prerelease)";
/*
*** g77-e/libf2c/libI77/rsne.c.~1~ Sat Jan 31 20:37:07 1998
--- g77-e/libf2c/libI77/rsne.c Mon Jun 28 10:21:41 1999
*************** x_rsne(cilist *a)
*** 531,538 ****
if (no1 > f__lcount)
no1 = f__lcount;
- iva += no1 * dn0->delta;
if (k = l_read(&no1, vaddr + iva,
size, type))
return k;
}
}
--- 531,538 ----
if (no1 > f__lcount)
no1 = f__lcount;
if (k = l_read(&no1, vaddr + iva,
size, type))
return k;
+ iva += no1 * dn0->delta;
}
}