[Ada] Refine type for sorting case-choices tables
authorPiotr Trojanek <trojanek@adacore.com>
Tue, 17 Mar 2020 11:37:08 +0000 (12:37 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 11 Jun 2020 09:53:44 +0000 (05:53 -0400)
commit38f44fd6af098d4d09bcf91039b4ce989b0d0791
tree5a362451acae8a1e10cef9e565a80c3839af97d6
parentfc4c73488f8254c0d787a4ec06c135a4ce029b33
[Ada] Refine type for sorting case-choices tables

2020-06-11  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

* sem_aggr.adb (Case_Table_Type): Change index type from Nat to
Pos.
gcc/ada/sem_aggr.adb