From 436529eae35b089720e402b3e9354b7786ea2c38 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Tue, 24 Aug 2004 18:25:16 +0200 Subject: [PATCH] * trans-types.c: Spelling and formatting fixes. From-SVN: r86490 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/trans-types.c | 24 ++++++++++++------------ 2 files changed, 16 insertions(+), 12 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9d9992687e2..b6ce788b35b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-08-24 Tobias Schlueter + + * trans-types.c: Spelling and formatting fixes. + 2004-08-23 Richard Henderson * 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 8f0749d0fe2..20ba42846e2 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, -- 2.30.2