diff options
| author | Ronan Desplanques <desplanques@adacore.com> | 2024-06-14 17:33:23 +0200 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-07-02 15:20:35 +0200 |
| commit | 78fe22892c6dc0f4bfd4e7fc0d2d43a9074c209c (patch) | |
| tree | 1878cfbbfaea577a8bc86888c383c93b51e1ee3a /gcc/ada | |
| parent | 5621e907ffbfc5953568d90c14c0f57d871e8f59 (diff) | |
| download | gcc-78fe22892c6dc0f4bfd4e7fc0d2d43a9074c209c.zip gcc-78fe22892c6dc0f4bfd4e7fc0d2d43a9074c209c.tar.gz gcc-78fe22892c6dc0f4bfd4e7fc0d2d43a9074c209c.tar.bz2 | |
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.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index b93e823..127b521 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; |