From d94a2f5f1fcd1d864d67244157d8b29fbffa14a5 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 17 Mar 2021 17:21:48 +0100 Subject: [PATCH] [Ada] Reuse First_Actual in Address_Value gcc/ada/ * sem_util.adb (Address_Value): Simplify. --- gcc/ada/sem_util.adb | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index a66a024..9849071 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -1007,11 +1007,7 @@ package body Sem_Util is and then Is_Entity_Name (Name (Expr)) and then Is_RTE (Entity (Name (Expr)), RE_To_Address) then - Expr := First (Parameter_Associations (Expr)); - - if Nkind (Expr) = N_Parameter_Association then - Expr := Explicit_Actual_Parameter (Expr); - end if; + Expr := First_Actual (Expr); -- We finally have the real expression -- 2.7.4