[gcc r15-9795] ada: Fix libgpr2 build failure with compiler built with assertions

[Eric Botcazou via Gcc-cvs]

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

commit r15-9795-ge0777e78bede3108d41a506d8877c03997bed2c5
Author: Eric Botcazou <ebotca...@adacore.com>
Date:   Mon Feb 24 22:27:21 2025 +0100

    ada: Fix libgpr2 build failure with compiler built with assertions
    
    The problem is that the Entity field is accessed for a node without one.
    
    gcc/ada/ChangeLog:
    
            * sem_ch10.adb (Install_Siblings.In_Context): Add missing guard.

Diff:
---
 gcc/ada/sem_ch10.adb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb
index de5a8c846ba7..e3d9925ab581 100644
--- a/gcc/ada/sem_ch10.adb
+++ b/gcc/ada/sem_ch10.adb
@@ -4932,6 +4932,8 @@ package body Sem_Ch10 is
                            if Entity (Name (Clause)) = Id
                              or else
                                (Nkind (Name (Clause)) = N_Expanded_Name
+                                 and then
+                                   Is_Entity_Name (Prefix (Name (Clause)))
                                  and then Entity (Prefix (Name (Clause))) = Id)
                            then
                               return True;