diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 14 |
2 files changed, 4 insertions, 14 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9fb19c4..bc622ef 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2008-04-03 Paolo Bonzini <bonzini@gnu.org> + + * f95-lang.c (insert_block): Kill. + 2008-04-01 George Helffrich <george@gcc.gnu.org> * trans-common.c (create_common): Add decl to function diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 52c0a81..4639d6c 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -95,7 +95,6 @@ static void gfc_print_identifier (FILE *, tree, int); static bool gfc_mark_addressable (tree); void do_function_end (void); int global_bindings_p (void); -void insert_block (tree); static void clear_binding_stack (void); static void gfc_be_parse_file (int); static alias_set_type gfc_get_alias_set (tree); @@ -473,19 +472,6 @@ poplevel (int keep, int reverse, int functionbody) } -/* Insert BLOCK at the end of the list of subblocks of the - current binding level. This is used when a BIND_EXPR is expanded, - to handle the BLOCK node inside the BIND_EXPR. */ - -void -insert_block (tree block) -{ - TREE_USED (block) = 1; - current_binding_level->blocks - = chainon (current_binding_level->blocks, block); -} - - /* Records a ..._DECL node DECL as belonging to the current lexical scope. Returns the ..._DECL node. */ |