trans-decl.c, [...]: Add and remove blank lines as required.

* trans-decl.c, trans-types.c: Add and remove blank lines as
required.

From-SVN: r86505

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 7d9fdfe981637f95aa5b9411a1abffd1716c5829..d4d9d00aed1f37ad8c306e49d67fdd8c98b02563 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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.

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 7801c65b3fa30e57503c6b775a0d59bfb3727a64..76618b2df52148379ae15c2466647b86a933c576 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -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_symbol * sym)
 void
 gfc_allocate_lang_decl (tree decl)
 {
-
   DECL_LANG_SPECIFIC (decl) = (struct lang_decl *)
     ggc_alloc_cleared (sizeof (struct lang_decl));
 }

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 20ba42846e26058a0610716fec41f8bc62f66641..f96dc285afefbcc06c005b7fa89c0398bd8112cc 100644 (file)
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -903,7 +903,6 @@ 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 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)