From f15ad1e3f9488a31abf1c122bd186c1a3d2a5dbc Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 5 Nov 2021 12:07:42 +0100 Subject: [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. --- gcc/ada/gcc-interface/decl.c | 21 ++++++++------------- 1 file changed, 8 insertions(+), 13 deletions(-) (limited to 'gcc/ada/gcc-interface/decl.c') 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; -- cgit v1.1