From b8039bde3e870f731a80bcc54148f03e14449913 Mon Sep 17 00:00:00 2001 From: Andrew Pinski Date: Thu, 28 Jul 2005 04:47:23 +0000 Subject: f95-lang.c (language_function): Remove named_labels... 2005-07-28 Andrew Pinski * fortran/f95-lang.c (language_function): Remove named_labels, shadowed_labels, returns_value, returns_abnormally, warn_about_return_type, and extern_inline fields. (named_labels): Remove variable. (gfc_init_decl_processing): Remove setting of named_labels. From-SVN: r102460 --- gcc/fortran/f95-lang.c | 8 -------- 1 file changed, 8 deletions(-) (limited to 'gcc/fortran/f95-lang.c') diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index de6444d..1c16bb4 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -77,12 +77,6 @@ struct language_function GTY(()) { /* struct gfc_language_function base; */ - tree named_labels; - tree shadowed_labels; - int returns_value; - int returns_abnormally; - int warn_about_return_type; - int extern_inline; struct binding_level *binding_level; }; @@ -176,7 +170,6 @@ const char *const tree_code_name[] = { }; #undef DEFTREECODE -static tree named_labels; #define NULL_BINDING_LEVEL (struct binding_level *) NULL @@ -561,7 +554,6 @@ static void gfc_init_decl_processing (void) { current_function_decl = NULL; - named_labels = NULL; current_binding_level = NULL_BINDING_LEVEL; free_binding_level = NULL_BINDING_LEVEL; -- cgit v1.1