[Ada] Mark artificial formal parameters in the debug info

gcc/ada/

	* gcc-interface/decl.cc (gnat_to_gnu_param): Set DECL_ARTIFICIAL.

diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc
index 96ea13e43d1843a5fc84365747364803dfbac032..504920d0f9afecca3f55ba0e941db5450c4f9ada 100644 (file)
--- a/gcc/ada/gcc-interface/decl.cc
+++ b/gcc/ada/gcc-interface/decl.cc
@@ -5602,6 +5602,7 @@ gnat_to_gnu_param (Entity_Id gnat_param, tree gnu_param_type, bool first,
 
   gnu_param = create_param_decl (gnu_param_name, gnu_param_type);
   TREE_READONLY (gnu_param) = ro_param || by_ref || by_component_ptr;
+  DECL_ARTIFICIAL (gnu_param) = !Comes_From_Source (gnat_param);
   DECL_BY_REF_P (gnu_param) = by_ref;
   DECL_FORCED_BY_REF_P (gnu_param) = forced_by_ref;
   DECL_BY_COMPONENT_PTR_P (gnu_param) = by_component_ptr;