OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

From-SVN: r86505
This commit is contained in:
Tobias Schlüter 2004-08-24 20:40:32 +02:00 committed by Tobias Schlüter
parent 0c8eb9985d
commit 45ede75e36
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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> 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.

3
gcc/fortran/trans-decl.c
View File

@ -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)
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)
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));
} }

3
gcc/fortran/trans-types.c
View File

@ -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
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
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)