[1568] in Athena Bugs
RE: fsplit on the RT 6.0R (bugs 1541)
daemon@ATHENA.MIT.EDU (epeisach@ATHENA.MIT.EDU)
Wed Dec 21 20:31:17 1988
From: <epeisach@ATHENA.MIT.EDU>
Date: Wed, 21 Dec 88 20:30:58 EST
To: bugs@ATHENA.MIT.EDU
The following is the fix to the rt version of fsplit that was causing it
to name all files zzznnn.f. [cf: BUGS discussion 1541] It also causes
the program that fsplit -e option will not work on the RT side.
The problem is that the RT's are returning 0 when returning after falling
off the end of the routine. On the vax, this value is always nonzero
(for this program).
The fix which is listed below can be inserted in the vax side as well
without harm. Note that the rt and the vax are the same except for one
line difference.
Script started on Wed Dec 21 20:24:14 1988
E40-342-18% diff -c5 fsplit.c /release/rt/source/rt/usr.bin/f77/src/fsplit/
*** fsplit.c Wed Dec 21 20:14:06 1988
--- /release/rt/source/rt/usr.bin/f77/src/fsplit//fsplit.c Sat Aug 8 00:18:39 1987
***************
*** 294,304 ****
if (sptr == s) return(0);
*sptr++ = '.';
*sptr++ = 'f';
*sptr++ = 0;
- return(1);
}
char *functs(p)
char *p;
{
--- 294,303 ----
Enjoy.
Ezra
