[Ada] Simplify iteration of record components when expanding equality
authorPiotr Trojanek <trojanek@adacore.com>
Mon, 11 Oct 2021 12:09:42 +0000 (14:09 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 25 Oct 2021 15:07:21 +0000 (15:07 +0000)
commit234815d4c38608eb1bff20f68d6dd4c233f07725
tree4482c5b47a65106c5ae59021979efd7550606382
parent1ddc39479b999841e0b0e994a47bf3cec8a4e54e
[Ada] Simplify iteration of record components when expanding equality

gcc/ada/

* exp_ch4.adb (Expand_Composite_Equality): Fix style.
(Element_To_Compare): Simplify loop.
(Expand_Record_Equality): Adapt calls to Element_To_Compare.
gcc/ada/exp_ch4.adb