git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

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