]> git.ipfire.org Git - thirdparty/gcc.git/commit
[Ada] More complete information level for -gnatR4 output
authorpmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 20 Aug 2019 09:49:28 +0000 (09:49 +0000)
committerpmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 20 Aug 2019 09:49:28 +0000 (09:49 +0000)
commita9cd3578cdc1682cd8e5f4f2be3526e553b2edb1
tree0a3bce79bddaf34e1d8dbf0baaf5334eb226999f
parentf51979c57494e1c8cc1be371ece3d29538824efa
[Ada] More complete information level for -gnatR4 output

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

package P is

   type U_Arr is array (Integer range <>) of Character;

   type Rec1 (D1, D2 : Integer) is record
      C : U_Arr (D1 .. D2);
   end record;

   type Rec_N is new Rec1 (1, 2);

end P;

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

gcc/ada/

* repinfo.adb (List_Record_Info): In -gnatR4 mode, set the
relevant flag on the implicit base type of a record subtype.

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