diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cf77df8..a1f8e48 100644 --- 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 --- 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; |