diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-05-10 23:16:43 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-07 05:26:52 -0400 |
| commit | aeef2df9376cb8080d37224ff57bb6ce61c5130f (patch) | |
| tree | 4d1907a1ef3ded6cc24dcba837a2d36f70c06c31 | |
| parent | 0ac15b175aa5c241ec2bd1f4e191c0e5dfc613e1 (diff) | |
| download | gcc-aeef2df9376cb8080d37224ff57bb6ce61c5130f.zip gcc-aeef2df9376cb8080d37224ff57bb6ce61c5130f.tar.gz gcc-aeef2df9376cb8080d37224ff57bb6ce61c5130f.tar.bz2 | |
[Ada] Allow aspect Relaxed_Initialization on protected entries
gcc/ada/
* sem_ch13.adb (Analyze_Relaxed_Parameter): Fix for protected
entries.
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index a0e5146..e73cf94 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -2276,7 +2276,7 @@ package body Sem_Ch13 is -- Annotation of a subprogram; aspect expression is required - elsif Is_Subprogram (E) then + elsif Is_Subprogram_Or_Entry (E) then if Present (Expr) then -- If we analyze subprogram body that acts as its own |