[Ada] Simplify getting discriminant value from a list of constraints
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 13 Mar 2020 20:32:25 +0000 (21:32 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Fri, 12 Jun 2020 08:29:16 +0000 (04:29 -0400)
commit51ebdbc91a8bbbd7509273075f3953b335b8c7c1
tree519defffe4f7d330b586c92ce08043f5dd726f78
parentec772e4b269206a943b3caa5544d9c7ac1d8de1a
[Ada] Simplify getting discriminant value from a list of constraints

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

gcc/ada/

* sem_ch3.adb (Get_Discr_Value): Cleanup.
gcc/ada/sem_ch3.adb