diff mbox series

[COMMITTED,12/13] ada: Fix generic renaming table low bound on reset

Message ID 20240702132130.523603-12-poulhies@adacore.com
State New
Headers show
Series [COMMITTED,01/13] ada: Document that -gnatdJ is unused | expand

Commit Message

Marc Poulhiès July 2, 2024, 1:21 p.m. UTC 
From: Ronan Desplanques <desplanques@adacore.com>

gcc/ada/

	* sem_ch12.adb (Save_And_Reset): Fix value of low bound used to
	reset table.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/sem_ch12.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
diff mbox series

Patch

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;