[Ada] Simplify code for checks within an initialization procedure
authorPiotr Trojanek <trojanek@adacore.com>
Mon, 27 Sep 2021 14:37:57 +0000 (16:37 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 11 Oct 2021 13:38:09 +0000 (13:38 +0000)
commit6b1c091238aa00a25346266ae2aece880f749c3a
tree8185f1a5b288e894e8b4b49080107414dfee73d1
parent07118f4832ab8a2eaa1cb564cf8d852a3c4b175c
[Ada] Simplify code for checks within an initialization procedure

gcc/ada/

* sem_util.adb (Compile_Time_Constraint_Error): Simplify getting
the type of the first formal parameter.
gcc/ada/sem_util.adb