diff options
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/gfortran.h | 2 | ||||
-rw-r--r-- | gcc/fortran/resolve.c | 2 | ||||
-rw-r--r-- | gcc/fortran/symbol.c | 3 |
4 files changed, 10 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 52a1303..ab086b0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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> * trans-common.c: Include rtl.h earlier. diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 16f0a12..aa66980 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1784,7 +1784,7 @@ void gfc_get_component_attr (symbol_attribute *, gfc_component *); 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_dimension (symbol_attribute *, const char *, locus *); try gfc_add_external (symbol_attribute *, locus *); diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 61983d1..1de2446 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -916,7 +916,7 @@ static void resolve_global_procedure (gfc_symbol *sym, locus *where, int sub) { gfc_gsymbol * gsym; - uint type; + unsigned int type; type = sub ? GSYM_SUBROUTINE : GSYM_FUNCTION; diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 7fc7ef1..45c7d25 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -604,7 +604,8 @@ duplicate_attr (const char *attr, locus * where) /* Called from decl.c (attr_decl1) to check attributes, when declared separately. */ 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) |