https://gcc.gnu.org/g:a1e79fb2fb9577a34d912dd0136adae37c869a7e
commit r15-11618-ga1e79fb2fb9577a34d912dd0136adae37c869a7e Author: Eric Botcazou <[email protected]> Date: Wed Oct 7 21:22:28 2026 +0200 Ada: Fix wild memory access for pragma Warnings (On|Off, "*") This occurs when the pragma is in a configuration file. The problem is that Find_Direct_Name manually walks the scope stack while it is still empty. gcc/ada/ PR ada/126125 * sem_ch8.adb (Find_Direct_Name): Add missing guard to the manual walk of the scope stack used to cope with the Rtsfind mechanism. Diff: --- gcc/ada/sem_ch8.adb | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 0a9ef419db78..c31fde19fc17 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -6380,6 +6380,7 @@ package body Sem_Ch8 is Level := Scope_Stack.Last; loop + exit when Level < 0; Scop := Scope_Stack.Table (Level).Entity; exit when Scop = Scope (E); Level := Level - 1;
