From 30c055954235cea8114e0918f2c35783d28f16f0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Tue, 8 Nov 2005 21:01:50 +0100 Subject: [PATCH] dump-parse-tree.c: Fix comment typo, add a few blank lines. * dump-parse-tree.c: Fix comment typo, add a few blank lines. Also, reformat previous ChangeLog entry. From-SVN: r106652 --- gcc/fortran/ChangeLog | 8 ++++++-- gcc/fortran/dump-parse-tree.c | 6 +++++- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4e1937a5aaca..f610a2ed12ba 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,7 +1,11 @@ +2005-11-08 Tobias Schl"uter + + * dump-parse-tree.c: Fix comment typo, add a few blank lines. + 2005-11-07 Steven G. Kargl - *error.c: Use flag_fatal_error. - *invoke.texi: Remove -Werror from list of options. + * error.c: Use flag_fatal_error. + * invoke.texi: Remove -Werror from list of options. 2005-11-06 Paul Thomas diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 2d708f7efed4..7d2b26d2d72b 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -61,6 +61,7 @@ code_indent (int level, gfc_st_label * label) /* Simple indentation at the current level. This one is used to show symbols. */ + static inline void show_indent (void) { @@ -70,6 +71,7 @@ show_indent (void) /* Show type-specific information. */ + static void gfc_show_typespec (gfc_typespec * ts) { @@ -686,6 +688,7 @@ gfc_show_symbol (gfc_symbol * sym) /* Show a user-defined operator. Just prints an operator and the name of the associated subroutine, really. */ + static void show_uop (gfc_user_op * uop) { @@ -746,6 +749,7 @@ show_common (gfc_symtree * st) gfc_status_char ('\n'); } + /* Worker function to display the symbol tree. */ static void @@ -1434,7 +1438,7 @@ gfc_show_code_node (int level, gfc_code * c) } -/* Show and equivalence chain. */ +/* Show an equivalence chain. */ static void gfc_show_equiv (gfc_equiv *eq)