diff options
| author | Paolo Bonzini <bonzini@gnu.org> | 2008-03-11 16:44:25 +0000 |
|---|---|---|
| committer | Paolo Bonzini <bonzini@gcc.gnu.org> | 2008-03-11 16:44:25 +0000 |
| commit | 30e257e5442d40427d6c0fd082251aeae0fe747a (patch) | |
| tree | f5b891f3a3c958104c9cd25ecf61b8a80ab3caf8 /gcc/fortran/f95-lang.c | |
| parent | 608766dc374a9c28bb52bd2d2031e5e0ec6e6727 (diff) | |
| download | gcc-30e257e5442d40427d6c0fd082251aeae0fe747a.zip gcc-30e257e5442d40427d6c0fd082251aeae0fe747a.tar.gz gcc-30e257e5442d40427d6c0fd082251aeae0fe747a.tar.bz2 | |
langhooks-def.h (LANG_HOOKS_CLEAR_BINDING_STACK): Delete.
2008-03-11 Paolo Bonzini <bonzini@gnu.org>
* langhooks-def.h (LANG_HOOKS_CLEAR_BINDING_STACK): Delete.
* langhooks.h (struct lang_hooks): Delete clear_binding_stack member.
* toplev.c (compile_file): Don't call it.
fortran:
2008-03-11 Paolo Bonzini <bonzini@gnu.org>
* f95-lang.c (LANG_HOOKS_CLEAR_BINDING_STACK): Delete.
(gfc_be_parse_file): Call clear_binding_stack from here.
(gfc_clear_binding_stack): Rename to clear_binding_stack.
java:
2008-03-11 Paolo Bonzini <bonzini@gnu.org>
* jcf-parse.c (java_parse_file): Assert binding levels are
left in order.
* lang.c (LANG_HOOKS_CLEAR_BINDING_STACK, java_clear_binding_stack):
Delete.
From-SVN: r133115
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 7a3e413..52c0a81 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -96,7 +96,7 @@ static bool gfc_mark_addressable (tree); void do_function_end (void); int global_bindings_p (void); void insert_block (tree); -static void gfc_clear_binding_stack (void); +static void clear_binding_stack (void); static void gfc_be_parse_file (int); static alias_set_type gfc_get_alias_set (tree); @@ -111,7 +111,6 @@ static alias_set_type gfc_get_alias_set (tree); #undef LANG_HOOKS_MARK_ADDRESSABLE #undef LANG_HOOKS_TYPE_FOR_MODE #undef LANG_HOOKS_TYPE_FOR_SIZE -#undef LANG_HOOKS_CLEAR_BINDING_STACK #undef LANG_HOOKS_GET_ALIAS_SET #undef LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE #undef LANG_HOOKS_OMP_PREDETERMINED_SHARING @@ -134,7 +133,6 @@ static alias_set_type gfc_get_alias_set (tree); #define LANG_HOOKS_MARK_ADDRESSABLE gfc_mark_addressable #define LANG_HOOKS_TYPE_FOR_MODE gfc_type_for_mode #define LANG_HOOKS_TYPE_FOR_SIZE gfc_type_for_size -#define LANG_HOOKS_CLEAR_BINDING_STACK gfc_clear_binding_stack #define LANG_HOOKS_GET_ALIAS_SET gfc_get_alias_set #define LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE gfc_omp_privatize_by_reference #define LANG_HOOKS_OMP_PREDETERMINED_SHARING gfc_omp_predetermined_sharing @@ -268,6 +266,8 @@ gfc_be_parse_file (int set_yydebug ATTRIBUTE_UNUSED) gfc_get_errors (&warnings, &errors); errorcount += errors; warningcount += warnings; + + clear_binding_stack (); } @@ -536,7 +536,7 @@ pushdecl_top_level (tree x) /* Clear the binding stack. */ static void -gfc_clear_binding_stack (void) +clear_binding_stack (void) { while (!global_bindings_p ()) poplevel (0, 0, 0); |