OSDN Git Service

2005-07-28 Andrew Pinski <pinskia@physics.uc.edu>
authorpinskia <pinskia@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 28 Jul 2005 04:47:23 +0000 (04:47 +0000)
committerpinskia <pinskia@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 28 Jul 2005 04:47:23 +0000 (04:47 +0000)
        * 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102460 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/f95-lang.c

index cf77df8..a1f8e48 100644 (file)
@@ -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
index de6444d..1c16bb4 100644 (file)
@@ -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;