procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/39309 (.mod file versioning causes error instead of overwritting the file)

Browse source 
2009-02-27  Tobias Burnus  <burnus@net-b.de>

        PR fortran/39309
        * module.c (read_md5_from_module_file): Include mod version
        in had-changed test.

From-SVN: r144461
This commit is contained in:
Tobias Burnus 2009-02-27 07:44:59 +01:00 • committed by Tobias Burnus
parent ba9b914485
commit 99b54b33b4
2 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2009-02-27 Tobias Burnus <burnus@net-b.de>
PR fortran/39309
* module.c (read_md5_from_module_file): Include mod version
in had-changed test.
2009-02-26 Paul Thomas <pault@gcc.gnu.org>
PR fortran/39295

14
gcc/fortran/module.c
View file

@ -4739,8 +4739,18 @@ read_md5_from_module_file (const char * filename, unsigned char md5[16])
return -1;
/* Read two lines. */
if (fgets (buf, sizeof (buf) - 1, file) == NULL
|| fgets (buf, sizeof (buf) - 1, file) == NULL)
if (fgets (buf, sizeof (buf) - 1, file) == NULL)
{
fclose (file);
return -1;
}
/* The file also needs to be overwritten if the version number changed. */
n = strlen ("GFORTRAN module version " MOD_VERSION " created");
if (strncmp (buf, "GFORTRAN module version " MOD_VERSION " created", n) != 0)
return -1;
if (fgets (buf, sizeof (buf) - 1, file) == NULL)
{
fclose (file);
return -1;