[Ada] Fix bogus error for clause on derived type with variant part
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 12 Dec 2019 21:14:54 +0000 (22:14 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 2 Jun 2020 08:58:04 +0000 (04:58 -0400)
commit5c726f3e42e227fdca32289e99b815988c40481a
tree5c8843917c2e7e69f095333f2d4753a6b36315cb
parente386872e9c949297b76172c6a7c703117f8026d0
[Ada] Fix bogus error for clause on derived type with variant part

2020-06-02  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* sem_ch3.adb (Replace_Components): Rename into...
(Replace_Discriminants): ...this.  Replace girder discriminants
with non-girder ones.  Do not replace components.
* sem_ch13.adb (Check_Record_Representation_Clause): Deal with
non-girder discriminants correctly.
gcc/ada/sem_ch13.adb
gcc/ada/sem_ch3.adb