diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-12-01 21:16:26 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-12-01 21:16:26 +0000 |
| commit | 101eebdb8a9e97746b76c7a1857f1b6a6122a38e (patch) | |
| tree | 548f77f5c381abf9de8b30e1f4cf925f5268a546 | |
| parent | dd56b4c5ab3c59126f152b7958861ac3e70aa7cf (diff) | |
| download | gcc-101eebdb8a9e97746b76c7a1857f1b6a6122a38e.zip gcc-101eebdb8a9e97746b76c7a1857f1b6a6122a38e.tar.gz gcc-101eebdb8a9e97746b76c7a1857f1b6a6122a38e.tar.bz2 | |
stat.c (stat_i4_sub_0, [...]): Mark parameter with unused attribute.
* 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.
From-SVN: r130561
| -rw-r--r-- | libgfortran/ChangeLog | 8 | ||||
| -rw-r--r-- | libgfortran/intrinsics/stat.c | 4 | ||||
| -rw-r--r-- | libgfortran/intrinsics/system_clock.c | 4 | ||||
| -rw-r--r-- | 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 <fxcoudert@gcc.gnu.org> + + * 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 <jvdelisle@gcc.gnu.org> PR libfortran/34291 diff --git a/libgfortran/intrinsics/stat.c b/libgfortran/intrinsics/stat.c index ccdba1b..11d59a88 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 <sys/stat.h> #endif +#ifdef HAVE_UNISTD_H +#include <unistd.h> +#endif + + /* SUBROUTINE UMASK(MASK, OLD) INTEGER, INTENT(IN) :: MASK INTEGER, INTENT(OUT), OPTIONAL :: OLD */ |