Commit 9104d201 by Eric Botcazou Committed by Pierre-Marie de Rodat

[Ada] Fix tracking of the first item in Repinfo

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

gcc/ada/

	* repinfo.adb (List_Structural_Record_Layout): Set First to false
	after having listed the fields of the parent type, if any.

From-SVN: r261000
parent 21afc4fa
2018-05-31 Eric Botcazou <ebotcazou@adacore.com> 2018-05-31 Eric Botcazou <ebotcazou@adacore.com>
* repinfo.adb (List_Structural_Record_Layout): Set First to false
after having listed the fields of the parent type, if any.
2018-05-31 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <discrete_type>: Do not * gcc-interface/decl.c (gnat_to_gnu_entity) <discrete_type>: Do not
deal with the ___XP suffix for packed array types here... deal with the ___XP suffix for packed array types here...
<E_Array_Subtype>: ...or here when processing the implementation type <E_Array_Subtype>: ...or here when processing the implementation type
......
...@@ -1517,6 +1517,7 @@ package body Repinfo is ...@@ -1517,6 +1517,7 @@ package body Repinfo is
if Is_Extension then if Is_Extension then
List_Structural_Record_Layout List_Structural_Record_Layout
(Base_Type (Parent_Subtype (Ent)), Outer_Ent); (Base_Type (Parent_Subtype (Ent)), Outer_Ent);
First := False;
if Present (Record_Extension_Part (Definition)) then if Present (Record_Extension_Part (Definition)) then
Definition := Record_Extension_Part (Definition); Definition := Record_Extension_Part (Definition);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment