diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-11-29 15:08:02 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-05 11:32:36 +0000 |
| commit | 31593d262714fa16ce955bf9068d88c869233616 (patch) | |
| tree | 38e1a400ad301600d9df8e56b82017290eb1f55f /gcc | |
| parent | 17b7c44f00970f6be2c7fcfc1da0714de8c84b3b (diff) | |
| download | gcc-31593d262714fa16ce955bf9068d88c869233616.zip gcc-31593d262714fa16ce955bf9068d88c869233616.tar.gz gcc-31593d262714fa16ce955bf9068d88c869233616.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 33ac8bd..c040051 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)), |