From c29774a1f35eb46c969b84af31a362bbd5d8855d Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 24 Feb 2025 22:27:21 +0100 Subject: [PATCH] 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. --- 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 9af96fc41b6..25bba9b6075 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -4924,6 +4924,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; -- 2.47.2