From 3b55068267229e027ce658f09cc53be843efacf8 Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Sat, 1 Dec 2007 21:16:26 +0000 Subject: [PATCH] * intrinsic/stat.c (stat_i4_sub_0, stat_i8_sub_0): Mark parameter with unused attribute. * intrinsics/system_clock.c (system_clock_4, system_clock_8): Remove unused variable. * intrinsics/umask.c: Include unistd.h. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130561 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/ChangeLog | 8 ++++++++ libgfortran/intrinsics/stat.c | 4 ++-- libgfortran/intrinsics/system_clock.c | 4 ---- libgfortran/intrinsics/umask.c | 5 +++++ 4 files changed, 15 insertions(+), 6 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index def1ef1..8ba4cd3 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,11 @@ +2007-12-01 Francois-Xavier Coudert + + * intrinsic/stat.c (stat_i4_sub_0, stat_i8_sub_0): Mark parameter + with unused attribute. + * intrinsics/system_clock.c (system_clock_4, system_clock_8): + Remove unused variable. + * intrinsics/umask.c: Include unistd.h. + 2007-11-30 Jerry DeLisle PR libfortran/34291 diff --git a/libgfortran/intrinsics/stat.c b/libgfortran/intrinsics/stat.c index ccdba1b..11d59a8 100644 --- a/libgfortran/intrinsics/stat.c +++ b/libgfortran/intrinsics/stat.c @@ -60,7 +60,7 @@ internal_proto(stat_i4_sub_0);*/ static void stat_i4_sub_0 (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status, - gfc_charlen_type name_len, int is_lstat) + gfc_charlen_type name_len, int is_lstat __attribute__ ((unused))) { int val; char *str; @@ -179,7 +179,7 @@ iexport(lstat_i4_sub); static void stat_i8_sub_0 (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status, - gfc_charlen_type name_len, int is_lstat) + gfc_charlen_type name_len, int is_lstat __attribute__ ((unused))) { int val; char *str; diff --git a/libgfortran/intrinsics/system_clock.c b/libgfortran/intrinsics/system_clock.c index db87bd4..2c98be6 100644 --- a/libgfortran/intrinsics/system_clock.c +++ b/libgfortran/intrinsics/system_clock.c @@ -59,7 +59,6 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate, GFC_INTEGER_4 *count_max) { GFC_INTEGER_4 cnt; - GFC_INTEGER_4 rate; GFC_INTEGER_4 mx; #if defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY) @@ -77,7 +76,6 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate, cnt = ucnt - GFC_INTEGER_4_HUGE - 1; else cnt = ucnt; - rate = TCK; mx = GFC_INTEGER_4_HUGE; } else @@ -122,7 +120,6 @@ system_clock_8 (GFC_INTEGER_8 *count, GFC_INTEGER_8 *count_rate, GFC_INTEGER_8 *count_max) { GFC_INTEGER_8 cnt; - GFC_INTEGER_8 rate; GFC_INTEGER_8 mx; #if defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY) @@ -154,7 +151,6 @@ system_clock_8 (GFC_INTEGER_8 *count, GFC_INTEGER_8 *count_rate, cnt = ucnt; mx = GFC_INTEGER_8_HUGE; } - rate = TCK; } else { diff --git a/libgfortran/intrinsics/umask.c b/libgfortran/intrinsics/umask.c index c348c72..81f84d2 100644 --- a/libgfortran/intrinsics/umask.c +++ b/libgfortran/intrinsics/umask.c @@ -39,6 +39,11 @@ Boston, MA 02110-1301, USA. */ #include #endif +#ifdef HAVE_UNISTD_H +#include +#endif + + /* SUBROUTINE UMASK(MASK, OLD) INTEGER, INTENT(IN) :: MASK INTEGER, INTENT(OUT), OPTIONAL :: OLD */ -- 2.7.4