https://gcc.gnu.org/g:fb14a2e0363e94e8bbd14db8705d1e78d6ba2c28
commit r17-4967-gfb14a2e0363e94e8bbd14db8705d1e78d6ba2c28 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 661aa6beef3d..cbddf3a3bf4d 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -6485,6 +6485,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;
