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

unit.c (get_unit): Mark argument as unused.

Browse source 
* io/unit.c (get_unit): Mark argument as unused.
	(init_units): Avoid warning about signed comparision.

From-SVN: r99842
This commit is contained in:
Andreas Jaeger 2005-05-17 19:02:38 +02:00
parent e21aff8abe
commit a0f94629e9
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libgfortran/io/unit.c
View file

@ -248,7 +248,7 @@ find_unit (int n)
* unit or the internal file. */
gfc_unit *
get_unit (int read_flag)
get_unit (int read_flag __attribute__ ((unused)))
{
if (ioparm.internal_unit != NULL)
{
@ -289,7 +289,7 @@ void
init_units (void)
{
gfc_unit *u;
int i;
unsigned int i;
if (options.stdin_unit >= 0)
{ /* STDIN */
@ -363,7 +363,7 @@ init_units (void)
* set a 1 in the LSB and keep a running sum, stopping at MSB-1 bit. */
g.max_offset = 0;
for (i=0; i < sizeof(g.max_offset) * 8 - 1; i++)
for (i = 0; i < sizeof (g.max_offset) * 8 - 1; i++)
g.max_offset = g.max_offset + ((gfc_offset) 1 << i);
}