gfortran.h (gfc_show_actual_arglist, [...]): Add prototypes.

        * gfortran.h (gfc_show_actual_arglist, gfc_show_array_ref,
        gfc_show_array_spec, gfc_show_attr, gfc_show_code,
        gfc_show_components, gfc_show_constructor, gfc_show_equiv,
        gfc_show_expr, gfc_show_namelist, gfc_show_ref, gfc_show_symbol,
        gfc_show_typespec): Add prototypes.
        * dump-parse-tree.c (gfc_show_actual_arglist, gfc_show_array_ref,
        gfc_show_array_spec, gfc_show_attr, gfc_show_code,
        gfc_show_components, gfc_show_constructor, gfc_show_equiv,
        gfc_show_expr, gfc_show_namelist, gfc_show_ref, gfc_show_symbol,
        gfc_show_typespec): Remove 'static' from declaration.

From-SVN: r117646

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f9196461964f43c85a4aea4f5da193cd99e4f88d..8bb54bcdb624f009a1e2b429a9fceb2e6d663120 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,16 @@
+2006-10-11  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * gfortran.h (gfc_show_actual_arglist, gfc_show_array_ref,
+       gfc_show_array_spec, gfc_show_attr, gfc_show_code,
+       gfc_show_components, gfc_show_constructor, gfc_show_equiv,
+       gfc_show_expr, gfc_show_namelist, gfc_show_ref, gfc_show_symbol,
+       gfc_show_typespec): Add prototypes.
+       * dump-parse-tree.c (gfc_show_actual_arglist, gfc_show_array_ref,
+       gfc_show_array_spec, gfc_show_attr, gfc_show_code,
+       gfc_show_components, gfc_show_constructor, gfc_show_equiv,
+       gfc_show_expr, gfc_show_namelist, gfc_show_ref, gfc_show_symbol,
+       gfc_show_typespec): Remove 'static' from declaration.
+
 2006-10-10  Brooks Moses  <bmoses@stanford.edu>
 
        * invoke.texi, gfortran.texi: Corrected erronous dashes.

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index cd909800d4f2d79b51a250487ed9dd37822e51b7..66a173cc21edd5f401e40a4a01677bcbb8682175 100644 (file)
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -37,11 +37,6 @@ Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
 /* Keep track of indentation for symbol tree dumps.  */
 static int show_level = 0;
 
-
-/* Forward declaration because this one needs all, and all need
-   this one.  */
-static void gfc_show_expr (gfc_expr *);
-
 /* Do indentation for a specific level.  */
 
 static inline void
@@ -72,7 +67,7 @@ show_indent (void)
 
 /* Show type-specific information.  */
 
-static void
+void
 gfc_show_typespec (gfc_typespec * ts)
 {
 
@@ -99,7 +94,7 @@ gfc_show_typespec (gfc_typespec * ts)
 
 /* Show an actual argument list.  */
 
-static void
+void
 gfc_show_actual_arglist (gfc_actual_arglist * a)
 {
 
@@ -126,7 +121,7 @@ gfc_show_actual_arglist (gfc_actual_arglist * a)
 
 /* Show a gfc_array_spec array specification structure.  */
 
-static void
+void
 gfc_show_array_spec (gfc_array_spec * as)
 {
   const char *c;
@@ -169,7 +164,7 @@ gfc_show_array_spec (gfc_array_spec * as)
 
 /* Show a gfc_array_ref array reference structure.  */
 
-static void
+void
 gfc_show_array_ref (gfc_array_ref * ar)
 {
   int i;
@@ -237,7 +232,7 @@ gfc_show_array_ref (gfc_array_ref * ar)
 
 /* Show a list of gfc_ref structures.  */
 
-static void
+void
 gfc_show_ref (gfc_ref * p)
 {
 
@@ -268,7 +263,7 @@ gfc_show_ref (gfc_ref * p)
 
 /* Display a constructor.  Works recursively for array constructors.  */
 
-static void
+void
 gfc_show_constructor (gfc_constructor * c)
 {
 
@@ -301,7 +296,7 @@ gfc_show_constructor (gfc_constructor * c)
 
 /* Show an expression.  */
 
-static void
+void
 gfc_show_expr (gfc_expr * p)
 {
   const char *c;
@@ -534,7 +529,7 @@ gfc_show_expr (gfc_expr * p)
 /* Show symbol attributes.  The flavor and intent are followed by
    whatever single bit attributes are present.  */
 
-static void
+void
 gfc_show_attr (symbol_attribute * attr)
 {
 
@@ -599,7 +594,7 @@ gfc_show_attr (symbol_attribute * attr)
 
 /* Show components of a derived type.  */
 
-static void
+void
 gfc_show_components (gfc_symbol * sym)
 {
   gfc_component *c;
@@ -626,7 +621,7 @@ gfc_show_components (gfc_symbol * sym)
    specific interfaces associated with a generic symbol is done within
    that symbol.  */
 
-static void
+void
 gfc_show_symbol (gfc_symbol * sym)
 {
   gfc_formal_arglist *formal;
@@ -790,7 +785,7 @@ static void gfc_show_code_node (int level, gfc_code * c);
 /* Show a list of code structures.  Mutually recursive with
    gfc_show_code_node().  */
 
-static void
+void
 gfc_show_code (int level, gfc_code * c)
 {
 
@@ -798,7 +793,7 @@ gfc_show_code (int level, gfc_code * c)
     gfc_show_code_node (level, c);
 }
 
-static void
+void
 gfc_show_namelist (gfc_namelist *n)
 {
   for (; n->next; n = n->next)
@@ -1689,7 +1684,7 @@ gfc_show_code_node (int level, gfc_code * c)
 
 /* Show an equivalence chain.  */
 
-static void
+void
 gfc_show_equiv (gfc_equiv *eq)
 {
   show_indent ();

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 7b624b077118be0970cf748a0860ae1c1a0b4e88..1e7e4880db7482762e4048637350cd4174bdcdcc 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -2114,7 +2114,20 @@ void gfc_insert_bbt (void *, void *, compare_fn);
 void gfc_delete_bbt (void *, void *, compare_fn);
 
 /* dump-parse-tree.c */
+void gfc_show_actual_arglist (gfc_actual_arglist *);
+void gfc_show_array_ref (gfc_array_ref *);
+void gfc_show_array_spec (gfc_array_spec *);
+void gfc_show_attr (symbol_attribute *);
+void gfc_show_code (int, gfc_code *);
+void gfc_show_components (gfc_symbol *);
+void gfc_show_constructor (gfc_constructor *);
+void gfc_show_equiv (gfc_equiv *);
+void gfc_show_expr (gfc_expr *);
+void gfc_show_namelist (gfc_namelist *);
 void gfc_show_namespace (gfc_namespace *);
+void gfc_show_ref (gfc_ref *);
+void gfc_show_symbol (gfc_symbol *);
+void gfc_show_typespec (gfc_typespec *);
 
 /* parse.c */
 try gfc_parse_file (void);