aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gcc-interface/decl.c
diff options
context:
space:
mode:
authorEric Botcazou <ebotcazou@adacore.com>2021-11-05 12:07:42 +0100
committerPierre-Marie de Rodat <derodat@adacore.com>2021-11-10 08:57:43 +0000
commitf15ad1e3f9488a31abf1c122bd186c1a3d2a5dbc (patch)
tree6cc7846b7b66b2075f8fbca8c23db98267918a6d /gcc/ada/gcc-interface/decl.c
parent0e988162f6e9cbb9bea998b4f1febda199769692 (diff)
downloadgcc-f15ad1e3f9488a31abf1c122bd186c1a3d2a5dbc.zip
gcc-f15ad1e3f9488a31abf1c122bd186c1a3d2a5dbc.tar.gz
gcc-f15ad1e3f9488a31abf1c122bd186c1a3d2a5dbc.tar.bz2
[Ada] Minor cleanup in translation of calls to subprograms
gcc/ada/ * gcc-interface/ada-tree.h (DECL_STUBBED_P): Delete. * gcc-interface/decl.c (gnat_to_gnu_entity): Do not set it. * gcc-interface/trans.c (Call_to_gnu): Use GNAT_NAME local variable and adjust accordingly. Replace test on DECL_STUBBED_P with direct test on Convention and move it down in the processing.
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
-rw-r--r--gcc/ada/gcc-interface/decl.c21
1 files changed, 8 insertions, 13 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 98b4aaf..449463e 100644
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -4095,19 +4095,14 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
else if (extern_flag && gnu_ext_name == DECL_NAME (realloc_decl))
gnu_decl = realloc_decl;
else
- {
- gnu_decl
- = create_subprog_decl (gnu_entity_name, gnu_ext_name,
- gnu_type, gnu_param_list,
- inline_status, public_flag,
- extern_flag, artificial_p,
- debug_info_p,
- definition && imported_p, attr_list,
- gnat_entity);
-
- DECL_STUBBED_P (gnu_decl)
- = (Convention (gnat_entity) == Convention_Stubbed);
- }
+ gnu_decl
+ = create_subprog_decl (gnu_entity_name, gnu_ext_name,
+ gnu_type, gnu_param_list,
+ inline_status, public_flag,
+ extern_flag, artificial_p,
+ debug_info_p,
+ definition && imported_p, attr_list,
+ gnat_entity);
}
}
break;