OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Andrew Pinski 2005-07-28 04:47:23 +00:00 committed by Andrew Pinski
parent 77d1d8e01f
commit b8039bde3e
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View 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> 2005-07-27 Volker Reichelt <reichelt@igpm.rwth-aachen.de>
PR fortran/22503 PR fortran/22503

8
gcc/fortran/f95-lang.c
View File

@ -77,12 +77,6 @@ struct language_function
GTY(()) GTY(())
{ {
/* struct gfc_language_function base; */ /* 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; struct binding_level *binding_level;
}; };
@ -176,7 +170,6 @@ const char *const tree_code_name[] = {
}; };
#undef DEFTREECODE #undef DEFTREECODE
static tree named_labels;
#define NULL_BINDING_LEVEL (struct binding_level *) NULL #define NULL_BINDING_LEVEL (struct binding_level *) NULL
@ -561,7 +554,6 @@ static void
gfc_init_decl_processing (void) gfc_init_decl_processing (void)
{ {
current_function_decl = NULL; current_function_decl = NULL;
named_labels = NULL;
current_binding_level = NULL_BINDING_LEVEL; current_binding_level = NULL_BINDING_LEVEL;
free_binding_level = NULL_BINDING_LEVEL; free_binding_level = NULL_BINDING_LEVEL;