OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Francois-Xavier Coudert 2007-12-01 21:16:26 +00:00 committed by François-Xavier Coudert
parent dd56b4c5ab
commit 101eebdb8a
4 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libgfortran/ChangeLog
View File

@ -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

4
libgfortran/intrinsics/stat.c
View File

@ -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;

4
libgfortran/intrinsics/system_clock.c
View File

@ -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
{

5
libgfortran/intrinsics/umask.c
View File

@ -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 */