diff options
| author | Claire Dross <dross@adacore.com> | 2020-07-21 11:14:02 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-20 03:21:46 -0400 |
| commit | 6875e1282d303eb1e15cfefc4686e31d56795de0 (patch) | |
| tree | 73d3ffbfd472c6b6bb90dc90751283b6d7dae038 /gcc | |
| parent | b68e5db5c26c56a39ac3e3c253f3c9a58058da91 (diff) | |
| download | gcc-6875e1282d303eb1e15cfefc4686e31d56795de0.zip gcc-6875e1282d303eb1e15cfefc4686e31d56795de0.tar.gz gcc-6875e1282d303eb1e15cfefc4686e31d56795de0.tar.bz2 | |
[Ada] Make attribute Update an obsolescent feature
gcc/ada/
* sem_attr.adb (Analyze_Attribute): Emit a warning on 'Update
when Warn_On_Obsolescent_Feature is set to True.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 5e5c3df..8bbf829 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -6899,6 +6899,11 @@ package body Sem_Attr is -- Start of processing for Update begin + if Warn_On_Obsolescent_Feature then + Error_Msg_N ("?j?attribute Update is an obsolescent feature", N); + Error_Msg_N ("\?j?use a delta aggregate instead", N); + end if; + Check_E1; if not Is_Object_Reference (P) then |