OSDN Git Service

2006-02-18 Danny Smith <dannysmith@users.sourceforeg.net>
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 18 Feb 2006 16:10:59 +0000 (16:10 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 18 Feb 2006 16:10:59 +0000 (16:10 +0000)
    * 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'.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111239 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/gfortran.h
gcc/fortran/resolve.c
gcc/fortran/symbol.c

index 52a1303..ab086b0 100644 (file)
@@ -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.
index 16f0a12..aa66980 100644 (file)
@@ -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 *);
index 61983d1..1de2446 100644 (file)
@@ -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;
 
index 7fc7ef1..45c7d25 100644 (file)
@@ -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)