This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[fortran-experiments] [committed] Fix a few whitespace problems.
- From: Brooks Moses <brooks dot moses at codesourcery dot com>
- To: gcc-patches at gcc dot gnu dot org
- Cc: fortran at gcc dot gnu dot org
- Date: Thu, 07 Jun 2007 01:40:24 -0700
- Subject: [fortran-experiments] [committed] Fix a few whitespace problems.
While looking through the branch-diff that Steve recently posted, I
noticed that a few whitespace problems had been inadvertantly introduced
into the fortran-experiments branch in bits of code that were otherwise
untouched by the modifications on the branch. This patch fixes those.
Tested by building on powerpc-apple-darwin8.9.0; commited to the branch
as obvious.
----------------------------------------------------------------
2007-06-07 Brooks Moses <brooks.moses@codesourcery.com>
* trans-expr.c: Fix whitespace.
* symbol.c: Likewise.
* decl.c: Likewise.
* gfortran.h: Likewise.
* match.h: Likewise.
----------------------------------------------------------------
- Brooks
Index: trans-expr.c
===================================================================
--- trans-expr.c (revision 125521)
+++ trans-expr.c (working copy)
@@ -464,7 +464,7 @@
separately. */
if (sym->ts.type == BT_CHARACTER)
{
- /* Dereference character pointer dummy arguments
+ /* Dereference character pointer dummy arguments
or results. */
if ((sym->attr.pointer || sym->attr.allocatable)
&& (sym->attr.dummy
@@ -481,7 +481,7 @@
else if (!sym->attr.value)
{
/* Dereference non-character scalar dummy arguments. */
- if (sym->attr.dummy && !sym->attr.dimension)
+ if (sym->attr.dummy && !sym->attr.dimension)
se->expr = build_fold_indirect_ref (se->expr);
/* Dereference scalar hidden result. */
Index: symbol.c
===================================================================
--- symbol.c (revision 125521)
+++ symbol.c (working copy)
@@ -27,7 +27,6 @@
#include "gfortran.h"
#include "parse.h"
-
/* Strings for all symbol attributes. We use these for dumping the
parse tree, in error messages, and also when reading and writing
modules. */
@@ -2038,7 +2037,7 @@
st = gfc_getmem (sizeof (gfc_symtree));
st->name = gfc_get_string (name);
-
+
gfc_insert_bbt (root, st, compare_symtree);
return st;
}
Index: decl.c
===================================================================
--- decl.c (revision 125521)
+++ decl.c (working copy)
@@ -5363,6 +5363,7 @@
return MATCH_ERROR;
}
+
match
gfc_match_value (void)
{
Index: gfortran.h
===================================================================
--- gfortran.h (revision 125521)
+++ gfortran.h (working copy)
@@ -2272,7 +2272,7 @@
try gfc_check_constructor_type (gfc_expr *);
try gfc_check_iter_variable (gfc_expr *);
try gfc_check_constructor (gfc_expr *, try (*)(gfc_expr *));
-gfc_constructor *gfc_copy_constructor (gfc_constructor * );
+gfc_constructor *gfc_copy_constructor (gfc_constructor *);
gfc_expr *gfc_get_array_element (gfc_expr *, int);
try gfc_array_size (gfc_expr *, mpz_t *);
try gfc_array_dimen_size (gfc_expr *, int, mpz_t *);
Index: match.h
===================================================================
--- match.h (revision 125521)
+++ match.h (working copy)
@@ -200,7 +200,7 @@
match gfc_match_interface (void);
match gfc_match_end_interface (void);
-/* io.c. */
+/* io.c. */
match gfc_match_format (void);
match gfc_match_open (void);
match gfc_match_close (void);