From 9104d201d56b2bbd9db93afc09617f88a0cd0f2b Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 31 May 2018 10:46:07 +0000 Subject: [PATCH] [Ada] Fix tracking of the first item in Repinfo 2018-05-31 Eric Botcazou 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/repinfo.adb | 1 + 2 files changed, 6 insertions(+) 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 + + * 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 * gcc-interface/decl.c (gnat_to_gnu_entity) : 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); -- 2.30.2