From 78fe22892c6dc0f4bfd4e7fc0d2d43a9074c209c Mon Sep 17 00:00:00 2001 From: Ronan Desplanques Date: Fri, 14 Jun 2024 17:33:23 +0200 Subject: [PATCH] ada: Fix generic renaming table low bound on reset gcc/ada/ * sem_ch12.adb (Save_And_Reset): Fix value of low bound used to reset table. --- gcc/ada/sem_ch12.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index b93e8231c84..127b521e0a5 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -18095,7 +18095,7 @@ package body Sem_Ch12 is end loop; Generic_Renamings.Init; - Generic_Renamings.Set_Last (0); + Generic_Renamings.Set_Last (-1); Generic_Renamings_HTable.Reset; end return; end Save_And_Reset; -- 2.47.2