From: Tobias Schlüter Date: Wed, 11 Oct 2006 22:11:05 +0000 (+0200) Subject: gfortran.h (gfc_show_actual_arglist, [...]): Add prototypes. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c4632147f3c0d8b2373fba1ebcfd69b2b83dc6ce;p=gcc.git 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 f9196461964..8bb54bcdb62 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,16 @@ +2006-10-11 Tobias Schlueter + + * 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 * invoke.texi, gfortran.texi: Corrected erronous dashes. diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index cd909800d4f..66a173cc21e 100644 --- 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 7b624b07711..1e7e4880db7 100644 --- 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);