From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 31 May 2018 10:46:07 +0000 (+0000)
Subject: [Ada] Fix tracking of the first item in Repinfo
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9104d201d56b2bbd9db93afc09617f88a0cd0f2b;p=gcc.git

[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 b485549ab72..d360f211769 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
index 874aa54d0d2..6c8af05993a 100644
--- 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);