[Ada] Correctly reject record aggregate using brackets
authorMarc Poulhiès <poulhies@adacore.com>
Mon, 31 Jan 2022 14:54:41 +0000 (15:54 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 11 May 2022 08:53:21 +0000 (08:53 +0000)
commitfe664d36500bae7cf4a28646e95c0838780bbd4a
tree3d2c7b518a23910c7a56981062a6a2b7978b2541
parente79b45ef0adb26d13923d8a1632ab81171f72255
[Ada] Correctly reject record aggregate using brackets

Ada 2022 bracket syntax is only allowed for arrays and containers, not
records. This change correctly rejects record aggregates using brackets
along with few cases of brackets being used instead of parentheses.

gcc/ada/

* libgnat/a-direct.adb (Start_Search_Internal): Use parentheses
for record aggregate.
* libgnat/a-stbubo.adb (Get_UTF_8): Likewise.
* libgnat/a-stbuun.adb (Get_UTF_8): Likewise.
* libgnat/a-stzbou.ads (Null_Bounded_Wide_Wide_String):
Likewise.
* libgnat/a-swmwco.ads (Lower_Case_Mapping, Basic_Mapping):
Likewise.
* libgnat/a-szmzco.ads (Lower_Case_Mapping, Basic_Mapping):
Likewise.
* libgnat/s-statxd.adb (Fields): Likewise.
* libgnat/s-stausa.adb (Initialize): Likewise.
* sem_aggr.adb (Resolve_Record_Aggregate): Reject aggregates
using brackets.
gcc/ada/libgnat/a-direct.adb
gcc/ada/libgnat/a-stbubo.adb
gcc/ada/libgnat/a-stbuun.adb
gcc/ada/libgnat/a-stzbou.ads
gcc/ada/libgnat/a-swmwco.ads
gcc/ada/libgnat/a-szmzco.ads
gcc/ada/libgnat/s-statxd.adb
gcc/ada/libgnat/s-stausa.adb
gcc/ada/sem_aggr.adb