Commit 45ede75e by Tobias Schlüter Committed by Tobias Schlüter

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
parent 0c8eb998
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> 2004-08-24 Richard Henderson <rth@redhat.com>
* trans-const.c (gfc_conv_mpz_to_tree): Fix 64-bit shift warning. * trans-const.c (gfc_conv_mpz_to_tree): Fix 64-bit shift warning.
......
...@@ -220,7 +220,6 @@ gfc_get_return_label (void) ...@@ -220,7 +220,6 @@ gfc_get_return_label (void)
tree tree
gfc_get_label_decl (gfc_st_label * lp) gfc_get_label_decl (gfc_st_label * lp)
{ {
if (lp->backend_decl) if (lp->backend_decl)
return lp->backend_decl; return lp->backend_decl;
else else
...@@ -258,7 +257,6 @@ gfc_get_label_decl (gfc_st_label * lp) ...@@ -258,7 +257,6 @@ gfc_get_label_decl (gfc_st_label * lp)
static tree static tree
gfc_sym_identifier (gfc_symbol * sym) gfc_sym_identifier (gfc_symbol * sym)
{ {
return (get_identifier (sym->name)); return (get_identifier (sym->name));
} }
...@@ -428,7 +426,6 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym) ...@@ -428,7 +426,6 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym)
void void
gfc_allocate_lang_decl (tree decl) gfc_allocate_lang_decl (tree decl)
{ {
DECL_LANG_SPECIFIC (decl) = (struct lang_decl *) DECL_LANG_SPECIFIC (decl) = (struct lang_decl *)
ggc_alloc_cleared (sizeof (struct lang_decl)); ggc_alloc_cleared (sizeof (struct lang_decl));
} }
......
...@@ -903,7 +903,6 @@ gfc_get_array_type_bounds (tree etype, int dimen, tree * lbound, ...@@ -903,7 +903,6 @@ gfc_get_array_type_bounds (tree etype, int dimen, tree * lbound,
static tree static tree
gfc_build_pointer_type (gfc_symbol * sym, tree type) gfc_build_pointer_type (gfc_symbol * sym, tree type)
{ {
/* Array pointer types aren't actually pointers. */ /* Array pointer types aren't actually pointers. */
if (sym->attr.dimension) if (sym->attr.dimension)
return type; return type;
...@@ -1377,6 +1376,7 @@ tree ...@@ -1377,6 +1376,7 @@ tree
gfc_unsigned_type (tree type) gfc_unsigned_type (tree type)
{ {
tree type1 = TYPE_MAIN_VARIANT (type); tree type1 = TYPE_MAIN_VARIANT (type);
if (type1 == signed_char_type_node || type1 == char_type_node) if (type1 == signed_char_type_node || type1 == char_type_node)
return unsigned_char_type_node; return unsigned_char_type_node;
if (type1 == integer_type_node) if (type1 == integer_type_node)
...@@ -1413,6 +1413,7 @@ tree ...@@ -1413,6 +1413,7 @@ tree
gfc_signed_type (tree type) gfc_signed_type (tree type)
{ {
tree type1 = TYPE_MAIN_VARIANT (type); tree type1 = TYPE_MAIN_VARIANT (type);
if (type1 == unsigned_char_type_node || type1 == char_type_node) if (type1 == unsigned_char_type_node || type1 == char_type_node)
return signed_char_type_node; return signed_char_type_node;
if (type1 == unsigned_type_node) if (type1 == unsigned_type_node)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment