| commit | fd3eff65551876a04febca1621d7d19f9390aab6 | |
| author | Piotr Trojanek <trojanek@adacore.com> | |
| Tue, 5 Oct 2021 13:29:44 +0000 (5 15:29 +0200) | ||
| committer | Marc Poulhiès <poulhies@adacore.com> | |
| Fri, 26 May 2023 07:29:17 +0000 (26 09:29 +0200) | ||
| tree | 74fa0b2f004643c6bb7cfd948ca9a44e001082b7 | treesnapshot (tar.gz zip) |
| parent | 4f591201821b4e236f79486fa3ae881a8b2d5212 | commitdiff |
ada: Fix handling of Global contracts inside generic subprograms
Routine Get_Argument works differently for generic units (as explained
in its comment), but it failed to reliably detect such units when their
kind is temporarily made non-generic (for resolving recursive calls, as
explained in the comment at the end of Is_Generic_Declaration_Or_Body).
With this patch the frontend will look at the decorated expression of
the Global contract attached to the Global aspect; previously it was
looking at the undecorated expression attached to the corresponding
pragma.
gcc/ada/
* sem_prag.adb (Get_Argument): Improve detection of generic units.
Routine Get_Argument works differently for generic units (as explained
in its comment), but it failed to reliably detect such units when their
kind is temporarily made non-generic (for resolving recursive calls, as
explained in the comment at the end of Is_Generic_Declaration_Or_Body).
With this patch the frontend will look at the decorated expression of
the Global contract attached to the Global aspect; previously it was
looking at the undecorated expression attached to the corresponding
pragma.
gcc/ada/
* sem_prag.adb (Get_Argument): Improve detection of generic units.
| gcc/ada/sem_prag.adb | diffblobblamehistory |