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 b485549..d360f21 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 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 deal with the ___XP suffix for packed array types here... : ...or here when processing the implementation type diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index 874aa54..6c8af05 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.7.4