[Ada] More complete information level for -gnatR4 output
authorEric Botcazou <ebotcazou@adacore.com>
Wed, 21 Aug 2019 08:30:58 +0000 (08:30 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Wed, 21 Aug 2019 08:30:58 +0000 (08:30 +0000)
commit3c488e6c8675f069c94567107f777f693671f7ed
tree59df0d123d5e527c37e3c3a5cd6c253c2057b68f
parentabdeafa67a8ec7c99830fd5039d38168abba52a9
[Ada] More complete information level for -gnatR4 output

This instructs -gnatR4 to also list the Etype of components in
user-declared record types if it is compiler-generated, for example in:

package P3 is

    type idx is range 1 .. 100;

    type Arr is array (Idx range <>) of Character;

    type Rec is record
       C : Arr (1 .. 5);
    end record;

end P3;

2019-08-21  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* repinfo.adb (List_Array_Info): In -gnatR4 mode, set the
relevant flag on the component type here instead of...
(List_Object_Info): Likewise for the object type.
(List_Entities): ...here.  In -gnatR4 mode, recurse into
entities local to a record type.
(List_Component_Layout): In -gnatR4 mode, mark the type as
relevant.

From-SVN: r274786
gcc/ada/ChangeLog
gcc/ada/repinfo.adb