diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2018-05-31 10:46:07 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-31 10:46:07 +0000 |
| commit | 9104d201d56b2bbd9db93afc09617f88a0cd0f2b (patch) | |
| tree | 7ae094432498caf1d597eccfe5209547103f4741 | |
| parent | 21afc4facd1ac4f62f7bd8ca0a3997fdb8ed1230 (diff) | |
| download | gcc-9104d201d56b2bbd9db93afc09617f88a0cd0f2b.zip gcc-9104d201d56b2bbd9db93afc09617f88a0cd0f2b.tar.gz gcc-9104d201d56b2bbd9db93afc09617f88a0cd0f2b.tar.bz2 | |
[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
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/repinfo.adb | 1 |
2 files changed, 6 insertions, 0 deletions
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 <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 --- 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); |