mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Don't say "source file is newer" when either file is inaccessible.

Browse source 
* libguile/load.c (compiled_is_fresh): Don't emit "source file is newer"
  warning when either FULL_FILENAME or COMPILED_FILENAME could not be
  stat'd.  This is consistent with what load/compiled-file-name do.
This commit is contained in:
Ludovic Courtès 2010-09-04 16:13:42 +02:00
parent abca59fea4
commit 722a4fb99e
1 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

23
libguile/load.c
View file

@ -629,7 +629,7 @@ compiled_is_fresh (SCM full_filename, SCM compiled_filename)
{
char *source, *compiled;
struct stat stat_source, stat_compiled;
int compiled_is_newer = 0;
int compiled_is_newer;
source = scm_to_locale_string (full_filename);
compiled = scm_to_locale_string (compiled_filename);
@ -646,16 +646,19 @@ compiled_is_fresh (SCM full_filename, SCM compiled_filename)
|| (source_mtime.tv_sec == compiled_mtime.tv_sec
&& source_mtime.tv_nsec <= compiled_mtime.tv_nsec))
compiled_is_newer = 1;
else
{
compiled_is_newer = 0;
scm_puts (";;; note: source file ", scm_current_error_port ());
scm_puts (source, scm_current_error_port ());
scm_puts ("\n;;; newer than compiled ", scm_current_error_port ());
scm_puts (compiled, scm_current_error_port ());
scm_puts ("\n", scm_current_error_port ());
}
}
if (!compiled_is_newer)
{
scm_puts (";;; note: source file ", scm_current_error_port ());
scm_puts (source, scm_current_error_port ());
scm_puts ("\n;;; newer than compiled ", scm_current_error_port ());
scm_puts (compiled, scm_current_error_port ());
scm_puts ("\n", scm_current_error_port ());
}
else
/* At least one of the files isn't accessible. */
compiled_is_newer = 0;
free (source);
free (compiled);