[Ada] Small cleanup throughout Exp_Ch9
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 5 May 2020 08:54:56 +0000 (10:54 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 6 Jul 2020 11:34:55 +0000 (07:34 -0400)
commite2d87663af0bfcd0563c00f958082dd7d801175d
tree6f696530a64716c3ea72d86cae9bb53a03f12aa4
parenteddd728f5f832869596529490f5db019ee899d53
[Ada] Small cleanup throughout Exp_Ch9

gcc/ada/

* exp_ch9.adb (Is_Potentially_Large_Family): Add documentation.
(Actual_Index_Expression): Use Entry_Index_Type.
(Build_Entry_Count_Expression): Likewise.
(Build_Find_Body_Index): Likewise.
(Collect_Entry_Families): Likewise. Use directly the bounds of
the index type to find out whether the family is large.
(Entry_Index_Expression): Likewise.
gcc/ada/exp_ch9.adb