diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2014-11-05 18:47:04 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2014-11-05 18:47:04 +0000 |
| commit | 87411e95ef8727a9aea86bb86a0773da3a769815 (patch) | |
| tree | 63c4c878221e6e8a4f2f9ff3061075c87530d615 /gcc/ada/gcc-interface/utils.c | |
| parent | 9c7a77fcc3d2895ec72639aa7a2067280a612268 (diff) | |
| download | gcc-87411e95ef8727a9aea86bb86a0773da3a769815.zip gcc-87411e95ef8727a9aea86bb86a0773da3a769815.tar.gz gcc-87411e95ef8727a9aea86bb86a0773da3a769815.tar.bz2 | |
utils.c (create_subprog_decl): Move code dealing with conflicting inlining status of nested subprograms to...
* gcc-interface/utils.c (create_subprog_decl): Move code dealing with
conflicting inlining status of nested subprograms to...
* gcc-interface/trans.c (check_inlining_for_nested_subprog): ...here.
(Attribute_to_gnu) <Attr_Access>: Call it.
(Call_to_gnu): Likewise.
(Subprogram_Body_to_gnu): Drop the body if it is an inlined external
function that has been marked uninlinable.
From-SVN: r217151
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 39350f7..4d35060 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -3027,18 +3027,6 @@ create_subprog_decl (tree subprog_name, tree asm_name, tree subprog_type, TREE_TYPE (subprog_type)); DECL_ARGUMENTS (subprog_decl) = param_decl_list; - /* If this is a non-inline function nested inside an inlined external - function, we cannot honor both requests without cloning the nested - function in the current unit since it is private to the other unit. - We could inline the nested function as well but it's probably better - to err on the side of too little inlining. */ - if ((inline_status == is_suppressed || inline_status == is_disabled) - && !public_flag - && current_function_decl - && DECL_DECLARED_INLINE_P (current_function_decl) - && DECL_EXTERNAL (current_function_decl)) - DECL_DECLARED_INLINE_P (current_function_decl) = 0; - DECL_ARTIFICIAL (subprog_decl) = artificial_flag; DECL_EXTERNAL (subprog_decl) = extern_flag; |