From: Piotr Trojanek <trojanek@adacore.com>
Date: Sun, 10 May 2020 21:16:43 +0000 (+0200)
Subject: [Ada] Allow aspect Relaxed_Initialization on protected entries
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2d093d6183b84a94a4a0da13c5d677cf8e017995;p=thirdparty%2Fgcc.git

[Ada] Allow aspect Relaxed_Initialization on protected entries

gcc/ada/

	* sem_ch13.adb (Analyze_Relaxed_Parameter): Fix for protected
	entries.
---

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index a0e5146e5947..e73cf949dfb6 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