(scan_c_file): At end, restore file name last char to its original value.

This commit is contained in:
Richard M. Stallman
1995-04-13 16:05:43 +00:00
parent 0731825e49
commit 1feb8ae1f5

View File

@@ -322,8 +322,9 @@ scan_c_file (filename, mode)
register int defvarperbufferflag;
register int defvarflag;
int minargs, maxargs;
int extension = filename[strlen (filename) - 1];
if (filename[strlen (filename) - 1] == 'o')
if (extension == 'o')
filename[strlen (filename) - 1] = 'c';
infile = fopen (filename, mode);
@@ -335,6 +336,9 @@ scan_c_file (filename, mode)
return 0;
}
/* Reset extension to be able to detect duplicate files. */
filename[strlen (filename) - 1] = extension;
c = '\n';
while (!feof (infile))
{