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

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