Commit ef6a0629 by Danny Smith Committed by Steven G. Kargl

gfortran.h (gfc_add_attribute): Change uint to unsigned int.

2006-02-18   Danny Smith  <dannysmith@users.sourceforeg.net>

    * gfortran.h (gfc_add_attribute): Change uint to unsigned int.
    * symbol.c (gfc_add_attribute): Likewise for definition.
    * resolve.c (resolve_global_procedure): Likewise for variable 'type'.

From-SVN: r111239
parent e084430d
2006-02-18 Danny Smith <dannysmith@users.sourceforeg.net>
* gfortran.h (gfc_add_attribute): Change uint to unsigned int.
* symbol.c (gfc_add_attribute): Likewise for definition.
* resolve.c (resolve_global_procedure): Likewise for variable 'type'.
2006-02-17 Richard Sandiford <richard@codesourcery.com> 2006-02-17 Richard Sandiford <richard@codesourcery.com>
* trans-common.c: Include rtl.h earlier. * trans-common.c: Include rtl.h earlier.
......
...@@ -1784,7 +1784,7 @@ void gfc_get_component_attr (symbol_attribute *, gfc_component *); ...@@ -1784,7 +1784,7 @@ void gfc_get_component_attr (symbol_attribute *, gfc_component *);
void gfc_set_sym_referenced (gfc_symbol * sym); void gfc_set_sym_referenced (gfc_symbol * sym);
try gfc_add_attribute (symbol_attribute *, locus *, uint); try gfc_add_attribute (symbol_attribute *, locus *, unsigned int);
try gfc_add_allocatable (symbol_attribute *, locus *); try gfc_add_allocatable (symbol_attribute *, locus *);
try gfc_add_dimension (symbol_attribute *, const char *, locus *); try gfc_add_dimension (symbol_attribute *, const char *, locus *);
try gfc_add_external (symbol_attribute *, locus *); try gfc_add_external (symbol_attribute *, locus *);
......
...@@ -916,7 +916,7 @@ static void ...@@ -916,7 +916,7 @@ static void
resolve_global_procedure (gfc_symbol *sym, locus *where, int sub) resolve_global_procedure (gfc_symbol *sym, locus *where, int sub)
{ {
gfc_gsymbol * gsym; gfc_gsymbol * gsym;
uint type; unsigned int type;
type = sub ? GSYM_SUBROUTINE : GSYM_FUNCTION; type = sub ? GSYM_SUBROUTINE : GSYM_FUNCTION;
......
...@@ -604,7 +604,8 @@ duplicate_attr (const char *attr, locus * where) ...@@ -604,7 +604,8 @@ duplicate_attr (const char *attr, locus * where)
/* Called from decl.c (attr_decl1) to check attributes, when declared separately. */ /* Called from decl.c (attr_decl1) to check attributes, when declared separately. */
try try
gfc_add_attribute (symbol_attribute * attr, locus * where, uint attr_intent) gfc_add_attribute (symbol_attribute * attr, locus * where,
unsigned int attr_intent)
{ {
if (check_used (attr, NULL, where) if (check_used (attr, NULL, where)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment