[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b485549..d360f21 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,10 @@
 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
        deal with the ___XP suffix for packed array types here...
        <E_Array_Subtype>: ...or here when processing the implementation type

diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
index 874aa54..6c8af05 100644 (file)
--- a/gcc/ada/repinfo.adb
+++ b/gcc/ada/repinfo.adb
@@ -1517,6 +1517,7 @@ package body Repinfo is
                if Is_Extension then
                   List_Structural_Record_Layout
                     (Base_Type (Parent_Subtype (Ent)), Outer_Ent);
+                  First := False;
 
                   if Present (Record_Extension_Part (Definition)) then
                      Definition := Record_Extension_Part (Definition);