https://gcc.gnu.org/g:b947e309e8736933ee4b31700df2d0d7b9d9ea6a

commit r17-4599-gb947e309e8736933ee4b31700df2d0d7b9d9ea6a
Author: Eric Botcazou <[email protected]>
Date:   Wed Sep 23 11:10:49 2026 +0200

    Ada: Fix wrong ALI xref for entry call parameter
    
    The wrong name is passed to Generate_Reference from Resolve_Entry.
    
    gcc/ada/
            * sem_res.adb (Resolve_Entry): Fix thinko.

Diff:
---
 gcc/ada/sem_res.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index c124b6d0e3d3..cf603b5a21f2 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -8385,7 +8385,7 @@ package body Sem_Res is
          --  Generate a reference for the index when it denotes an entity
 
          if Is_Entity_Name (Index) then
-            Generate_Reference (Entity (Index), Nam);
+            Generate_Reference (Entity (Index), Index);
          end if;
 
          --  Up to this point the expression could have been the actual in a

Reply via email to