diff options
author | Justin Squirek <squirek@adacore.com> | 2019-12-12 10:02:32 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-12-12 10:02:32 +0000 |
commit | c171199011ac0d37df67ff99ea7286fa3455efcf (patch) | |
tree | f950ddf0b80312f9c35aeeb9ad0fe9c10e13c499 /gcc | |
parent | 5d3983bca523f337333cf6f749d6489014264572 (diff) | |
download | gcc-c171199011ac0d37df67ff99ea7286fa3455efcf.zip gcc-c171199011ac0d37df67ff99ea7286fa3455efcf.tar.gz gcc-c171199011ac0d37df67ff99ea7286fa3455efcf.tar.bz2 |
[Ada] Missing error on incorrect use of Result attribute
2019-12-12 Justin Squirek <squirek@adacore.com>
gcc/ada/
* sem_attr.adb (Analyze_Attribute): Add error message for
invalid usage of Attribute_Result.
From-SVN: r279288
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/ada/sem_attr.adb | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4ad9092..9e271ac 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-12-12 Justin Squirek <squirek@adacore.com> + + * sem_attr.adb (Analyze_Attribute): Add error message for + invalid usage of Attribute_Result. + 2019-12-12 Bob Duff <duff@adacore.com> * sem_attr.adb (Eval_Attribute): Never mark T'Descriptor_Size as diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 0cd8e08..e842293 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -5414,6 +5414,7 @@ package body Sem_Attr is Spec_Id := Entity (P); elsif not Legal then + Error_Attr ("prefix of % attribute must be a function", P); return; end if; |