[Ada] Plug small hole in -gnatR output
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 29 May 2018 09:42:16 +0000 (09:42 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Tue, 29 May 2018 09:42:16 +0000 (09:42 +0000)
commit944e24a31a9b3b3c4494853a8e2a2d589f65519f
tree32d0a4ddf43bc8f544bea46b9d63e629baa3c54e
parent3747db827dfedd0f91e08f74b4082da8c0b2df5e
[Ada] Plug small hole in -gnatR output

The -gnatR switch outputs representation information for locally-defined
types but it was skipping those defined in blocks without label, unlike
those defined in named blocks.  This change plugs this small hole.

The following procedure:

procedure P is
begin
  declare
    type R is record
      I : Integer;
    end record;
  begin
    null;
  end;
end;

must now generate the following output with -gnatR:

Representation information for unit P (body)
--------------------------------------------

for B_1.R'Size use 32;
for B_1.R'Alignment use 4;
for B_1.R use record
   I at 0 range  0 .. 31;
end record;

2018-05-29  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* repinfo.adb (List_Entities): Also recurse into blocks without label.

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