diff options
author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-08-24 18:25:16 +0200 |
---|---|---|
committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-08-24 18:25:16 +0200 |
commit | 436529eae35b089720e402b3e9354b7786ea2c38 (patch) | |
tree | 92512c1fdd288e76872640061f9de4284445873f | |
parent | 7746c5c31a9d121d17c534c6d676c22e28645f66 (diff) | |
download | gcc-436529eae35b089720e402b3e9354b7786ea2c38.zip gcc-436529eae35b089720e402b3e9354b7786ea2c38.tar.gz gcc-436529eae35b089720e402b3e9354b7786ea2c38.tar.bz2 |
* trans-types.c: Spelling and formatting fixes.
From-SVN: r86490
-rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/fortran/trans-types.c | 24 |
2 files changed, 16 insertions, 12 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9d99926..b6ce788 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-08-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> + + * trans-types.c: Spelling and formatting fixes. + 2004-08-23 Richard Henderson <rth@redhat.com> * trans-const.c (gfc_conv_mpz_to_tree): Use mpz_getlimbn instead diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 8f0749d..20ba428 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -177,7 +177,7 @@ gfc_init_types (void) boolean_false_node = build_int_cst (boolean_type_node, 0, 0); } -/* Get a type node for an integer kind */ +/* Get a type node for an integer kind. */ tree gfc_get_int_type (int kind) @@ -201,7 +201,7 @@ gfc_get_int_type (int kind) } } -/* Get a type node for a real kind */ +/* Get a type node for a real kind. */ tree gfc_get_real_type (int kind) @@ -221,11 +221,12 @@ gfc_get_real_type (int kind) } } -/* Get a type node for a complex kind */ +/* Get a type node for a complex kind. */ tree gfc_get_complex_type (int kind) { + switch (kind) { case 4: @@ -241,7 +242,7 @@ gfc_get_complex_type (int kind) } } -/* Get a type node for a logical kind */ +/* Get a type node for a logical kind. */ tree gfc_get_logical_type (int kind) @@ -445,8 +446,7 @@ gfc_get_element_type (tree type) dimension. This requires extra fields in the descriptor (both real_ubound and fake_ubound). In tree.def there is mention of TYPE_SEP, which may allow us to do this. However I can't find mention of this anywhere - else. - */ + else. */ /* Returns true if the array sym does not require a descriptor. */ @@ -903,7 +903,8 @@ gfc_get_array_type_bounds (tree etype, int dimen, tree * lbound, static tree gfc_build_pointer_type (gfc_symbol * sym, tree type) { - /* Array pointer types aren't actualy pointers. */ + + /* Array pointer types aren't actually pointers. */ if (sym->attr.dimension) return type; else @@ -1036,10 +1037,10 @@ gfc_get_derived_type (gfc_symbol * derived) assert (derived && derived->attr.flavor == FL_DERIVED); /* derived->backend_decl != 0 means we saw it before, but its - component's backend_decl may have not been built. */ + components' backend_decl may have not been built. */ if (derived->backend_decl) { - /* Its component's backend_decl has been built. */ + /* Its components' backend_decl have been built. */ if (TYPE_FIELDS (derived->backend_decl)) return derived->backend_decl; else @@ -1144,7 +1145,6 @@ gfc_return_by_reference (gfc_symbol * sym) return 0; } - tree gfc_get_function_type (gfc_symbol * sym) { @@ -1193,7 +1193,7 @@ gfc_get_function_type (gfc_symbol * sym) typelist = gfc_chainon_list (typelist, gfc_strlen_type_node); } - /* Build the argument types for the function */ + /* Build the argument types for the function. */ for (f = sym->formal; f; f = f->next) { arg = f->sym; @@ -1255,7 +1255,7 @@ gfc_get_function_type (gfc_symbol * sym) return type; } -/* Routines for getting integer type nodes */ +/* Routines for getting integer type nodes. */ /* Return an integer type with BITS bits of precision, |