diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-03-17 17:21:48 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-06-18 04:36:50 -0400 |
| commit | d94a2f5f1fcd1d864d67244157d8b29fbffa14a5 (patch) | |
| tree | 2b03b6f55b71213f38404dd3307989af173065f4 /gcc | |
| parent | 537f0ce3078e4b1dd9f357ed4ed791e05024455a (diff) | |
| download | gcc-d94a2f5f1fcd1d864d67244157d8b29fbffa14a5.zip gcc-d94a2f5f1fcd1d864d67244157d8b29fbffa14a5.tar.gz gcc-d94a2f5f1fcd1d864d67244157d8b29fbffa14a5.tar.bz2 | |
[Ada] Reuse First_Actual in Address_Value
gcc/ada/
* sem_util.adb (Address_Value): Simplify.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_util.adb | 6 |
1 files changed, 1 insertions, 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 |