diff options
| author | Jan Hubicka <jh@suse.cz> | 2007-09-11 12:39:53 +0200 |
|---|---|---|
| committer | Jan Hubicka <hubicka@gcc.gnu.org> | 2007-09-11 10:39:53 +0000 |
| commit | e89d6010089634063adfeeec679ac7fbf6afa4e6 (patch) | |
| tree | a9c246259502c55141f2c727f2747541fd04e58b /gcc/fortran/f95-lang.c | |
| parent | 8ce4afa36d051920c2a67e54340e2a72fa33cbdd (diff) | |
| download | gcc-e89d6010089634063adfeeec679ac7fbf6afa4e6.zip gcc-e89d6010089634063adfeeec679ac7fbf6afa4e6.tar.gz gcc-e89d6010089634063adfeeec679ac7fbf6afa4e6.tar.bz2 | |
decl.c (java_expand_body): Kill.
* decl.c (java_expand_body): Kill.
(LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.
* toplev.c (process_options): all frontends now do unit-at-a-time.
* cgraphunit.c: update comments.
(cgraph_expand_function): call passmanager dirrectly; emit thunks.
* c-decl.c (finish_function): use cgraph_add_new_function.
* method.c (use_thunk): Use tree_rest_of_compilation
* cp-objecp-common.h (LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.
(LANG_HOOKS_CALLGRAPH_EMIT_ASSOCIATED_THUNKS): Define.
* cp-tree.h (expand_body): Kill.
(emit_associated_thunks): Declare.
* semantics.c (emit_associated_thunks): Export.
(expand_body): Kill.
* misc.c (gnat_expand_body): Kill.
(LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.
* f95-lang.c (gfc_expand_function): Kill.
(LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.
* function.c (expand_function_end): We are always unit-at-a-time.
From-SVN: r128367
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index b9eb1f8..c5c602b 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -98,7 +98,6 @@ int global_bindings_p (void); void insert_block (tree); static void gfc_clear_binding_stack (void); static void gfc_be_parse_file (int); -static void gfc_expand_function (tree); static alias_set_type gfc_get_alias_set (tree); #undef LANG_HOOKS_NAME @@ -135,7 +134,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_CALLGRAPH_EXPAND_FUNCTION gfc_expand_function #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 @@ -194,45 +192,6 @@ static GTY(()) struct binding_level *free_binding_level; It is indexed by a RID_... value. */ tree *ridpointers = NULL; -/* language-specific flags. */ - -static void -gfc_expand_function (tree fndecl) -{ - tree t; - - if (DECL_INITIAL (fndecl) - && BLOCK_SUBBLOCKS (DECL_INITIAL (fndecl))) - { - /* Local static equivalenced variables are never seen by - check_global_declarations, so we need to output debug - info by hand. */ - - t = BLOCK_SUBBLOCKS (DECL_INITIAL (fndecl)); - for (t = BLOCK_VARS (t); t; t = TREE_CHAIN (t)) - if (TREE_CODE (t) == VAR_DECL && DECL_HAS_VALUE_EXPR_P (t) - && TREE_STATIC (t)) - { - tree expr = DECL_VALUE_EXPR (t); - - if (TREE_CODE (expr) == COMPONENT_REF - && TREE_CODE (TREE_OPERAND (expr, 0)) == VAR_DECL - && TREE_CODE (TREE_TYPE (TREE_OPERAND (expr, 0))) - == UNION_TYPE - && varpool_node (TREE_OPERAND (expr, 0))->needed - && errorcount == 0 && sorrycount == 0) - { - timevar_push (TV_SYMOUT); - (*debug_hooks->global_decl) (t); - timevar_pop (TV_SYMOUT); - } - } - } - - tree_rest_of_compilation (fndecl); -} - - /* Prepare expr to be an argument of a TRUTH_NOT_EXPR, or validate its data type for an `if' or `while' statement or ?..: exp. |