[Ada] Fix tracking of the first item in Repinfo
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 31 May 2018 10:46:07 +0000 (10:46 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Thu, 31 May 2018 10:46:07 +0000 (10:46 +0000)
commit9104d201d56b2bbd9db93afc09617f88a0cd0f2b
tree7ae094432498caf1d597eccfe5209547103f4741
parent21afc4facd1ac4f62f7bd8ca0a3997fdb8ed1230
[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
gcc/ada/ChangeLog
gcc/ada/repinfo.adb