[Ada] Fix inaccurate -gnatR output for derived untagged types
authorEric Botcazou <ebotcazou@adacore.com>
Mon, 18 May 2020 20:36:49 +0000 (22:36 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 8 Jul 2020 14:55:50 +0000 (10:55 -0400)
commit0f2d27e5fe82467329e0bbe8295bb4857b5da53c
tree8caf70e6411b70b15ba0bc184c32317fe42f0632
parent530b30d9b3c2b60a5dfc8b3323b886ef5fed41a1
[Ada] Fix inaccurate -gnatR output for derived untagged types

gcc/ada/

* repinfo.adb (Compute_Max_Length): Skip hidden discriminants.
(List_Record_Layout): Likewise.
(List_Structural_Record_Layout): Use First_Discriminant instead
of First_Stored_Discriminant and Next_Discriminant instead of
Next_Stored_Discriminant to walk the list of discriminants.
gcc/ada/repinfo.adb