f95-lang.c (language_function): Remove named_labels...

2005-07-28  Andrew Pinski  <pinskia@physics.uc.edu>

        * 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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index cf77df8..a1f8e48 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,11 @@
+2005-07-28  Andrew Pinski  <pinskia@physics.uc.edu>
+
+       * 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.
+
 2005-07-27  Volker Reichelt  <reichelt@igpm.rwth-aachen.de>
 
        PR fortran/22503

diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index de6444d..1c16bb4 100644 (file)
--- 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;