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.

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index b93e8231c84f7089399e03c766b4315c8abe09dd..127b521e0a56a2e786859fc4468110df242a054d 100644 (file)
--- 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;