From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Tue, 24 Aug 2004 18:40:32 +0000 (+0200)
Subject: trans-decl.c, [...]: Add and remove blank lines as required.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=45ede75e36a7bdb9c3e182f7439a233dc058d268;p=gcc.git

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 7d9fdfe9816..d4d9d00aed1 100644
--- 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 7801c65b3fa..76618b2df52 100644
--- 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 20ba42846e2..f96dc285afe 100644
--- 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)