From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 29 Nov 2021 14:08:02 +0000 (+0100)
Subject: [Ada] Remove explicit "in" in internal parameter association
X-Git-Tag: basepoints/gcc-13~2070
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=31593d262714fa16ce955bf9068d88c869233616;p=thirdparty%2Fgcc.git

[Ada] Remove explicit "in" in internal parameter association

gcc/ada/

	* exp_attr.adb (Build_Array_VS_Func): Remove explicit "IN" in
	spec of the generated array validation function; it was
	redundant, just like it would be in a user-written code.
---

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 33ac8bde6355..c040051fd611 100644
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -404,8 +404,6 @@ package body Exp_Attr is
               Parameter_Specifications => New_List (
                 Make_Parameter_Specification (Loc,
                   Defining_Identifier => Obj_Id,
-                  In_Present          => True,
-                  Out_Present         => False,
                   Parameter_Type      => New_Occurrence_Of (Formal_Typ, Loc))),
               Result_Definition        =>
                 New_Occurrence_Of (Standard_Boolean, Loc)),