]> git.ipfire.org Git - thirdparty/gcc.git/commit
[Ada] More complete information level for -gnatR4 output
authorpmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 21 Aug 2019 08:30:58 +0000 (08:30 +0000)
committerpmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 21 Aug 2019 08:30:58 +0000 (08:30 +0000)
commitf6de748e53366473b8001083de9fabb9305019c2
tree59df0d123d5e527c37e3c3a5cd6c253c2057b68f
parent814f5f0e301c6e6a555de8954e05f7e38b61903a
[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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@274786 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/ChangeLog
gcc/ada/repinfo.adb