This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [gfortran, committed] Spelling fixes for trans-types.c
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: Richard Henderson <rth at twiddle dot net>
- Cc: GCC Fortran mailing list <fortran at gcc dot gnu dot org>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Tue, 24 Aug 2004 20:43:34 +0200
- Subject: Re: [gfortran, committed] Spelling fixes for trans-types.c
- References: <412B6BF7.2040500@physik.uni-muenchen.de> <20040824181909.GA32749@twiddle.net>
Richard Henderson wrote:
> This is not a formatting fix, rather just the opposite. Please
> remove all blank lines from the beginnings of functions.
I committed this after verifying that the compiler still builds. Going through
the files I had touched I noticed two spots where blank lines were missing, so
I added them.
- Tobi
Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/ChangeLog,v
retrieving revision 1.169
retrieving revision 1.170
diff -u -p -r1.169 -r1.170
--- ChangeLog 24 Aug 2004 18:23:11 -0000 1.169
+++ ChangeLog 24 Aug 2004 18:40:32 -0000 1.170
@@ -1,3 +1,8 @@
+2004-08-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
+ * trans-decl.c, trans-types.c: Add and remove blank lines as
+ required.
+
2004-08-24 Richard Henderson <rth@redhat.com>
* trans-const.c (gfc_conv_mpz_to_tree): Fix 64-bit shift warning.
Index: trans-decl.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-decl.c,v
retrieving revision 1.34
diff -u -p -r1.34 trans-decl.c
--- trans-decl.c 24 Aug 2004 16:43:26 -0000 1.34
+++ trans-decl.c 24 Aug 2004 18:36:51 -0000
@@ -220,7 +220,6 @@ gfc_get_return_label (void)
tree
gfc_get_label_decl (gfc_st_label * lp)
{
-
if (lp->backend_decl)
return lp->backend_decl;
else
@@ -258,7 +257,6 @@ gfc_get_label_decl (gfc_st_label * lp)
static tree
gfc_sym_identifier (gfc_symbol * sym)
{
-
return (get_identifier (sym->name));
}
@@ -428,7 +426,6 @@ gfc_finish_var_decl (tree decl, gfc_symb
void
gfc_allocate_lang_decl (tree decl)
{
-
DECL_LANG_SPECIFIC (decl) = (struct lang_decl *)
ggc_alloc_cleared (sizeof (struct lang_decl));
}
Index: trans-types.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-types.c,v
retrieving revision 1.13
diff -u -p -r1.13 trans-types.c
--- trans-types.c 24 Aug 2004 16:25:16 -0000 1.13
+++ trans-types.c 24 Aug 2004 18:36:51 -0000
@@ -903,7 +903,6 @@ gfc_get_array_type_bounds (tree etype, i
static tree
gfc_build_pointer_type (gfc_symbol * sym, tree type)
{
-
/* Array pointer types aren't actually pointers. */
if (sym->attr.dimension)
return type;
@@ -1377,6 +1376,7 @@ tree
gfc_unsigned_type (tree type)
{
tree type1 = TYPE_MAIN_VARIANT (type);
+
if (type1 == signed_char_type_node || type1 == char_type_node)
return unsigned_char_type_node;
if (type1 == integer_type_node)
@@ -1413,6 +1413,7 @@ tree
gfc_signed_type (tree type)
{
tree type1 = TYPE_MAIN_VARIANT (type);
+
if (type1 == unsigned_char_type_node || type1 == char_type_node)
return signed_char_type_node;
if (type1 == unsigned_type_node)