diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-09-27 16:37:57 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-11 13:38:09 +0000 |
commit | 6b1c091238aa00a25346266ae2aece880f749c3a (patch) | |
tree | 8185f1a5b288e894e8b4b49080107414dfee73d1 | |
parent | 07118f4832ab8a2eaa1cb564cf8d852a3c4b175c (diff) | |
download | gcc-6b1c091238aa00a25346266ae2aece880f749c3a.zip gcc-6b1c091238aa00a25346266ae2aece880f749c3a.tar.gz gcc-6b1c091238aa00a25346266ae2aece880f749c3a.tar.bz2 |
[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.
-rw-r--r-- | gcc/ada/sem_util.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 20e4395..63d0217d 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -6590,9 +6590,7 @@ package body Sem_Util is if Inside_Init_Proc then declare Init_Proc_Type : constant Entity_Id := - Entity (Parameter_Type (First - (Parameter_Specifications - (Parent (Current_Scope_No_Loops))))); + Etype (First_Formal (Current_Scope_No_Loops)); Conc_Typ : constant Entity_Id := (if Present (Init_Proc_Type) |