diff options
| author | Javier Miranda <miranda@adacore.com> | 2024-08-05 20:03:01 +0000 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-08-23 10:51:03 +0200 |
| commit | 4522f1f6e31a606d1c9784eb5790b51e5e194bc7 (patch) | |
| tree | 32e0ce9987928fda73f4892eeb45be3de24eb52c /gcc | |
| parent | aa95cd98575bd25e211d4ef0a025844575e752b4 (diff) | |
| download | gcc-4522f1f6e31a606d1c9784eb5790b51e5e194bc7.zip gcc-4522f1f6e31a606d1c9784eb5790b51e5e194bc7.tar.gz gcc-4522f1f6e31a606d1c9784eb5790b51e5e194bc7.tar.bz2 | |
ada: First controlling parameter aspect
gcc/ada/
* sem_ch13.adb (Analyze_One_Aspect): Temporarily remove reporting
an error when the new aspect is set to True and the extensions are
not enabled.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index f4ff3a2..3487931 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -4524,9 +4524,6 @@ package body Sem_Ch13 is if (No (Expr) or else Entity (Expr) = Standard_True) and then not Core_Extensions_Allowed then - Error_Msg_GNAT_Extension - ("'First_'Controlling_'Parameter", Sloc (Aspect), - Is_Core_Extension => True); goto Continue; end if; |