From 26ac7446f607b1b031bbd38fab28265fd772f8a5 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Tue, 16 Jun 2020 16:08:34 -0400 Subject: [Ada] AI12-0194: Language-defined aspects and entry bodies gcc/ada/ * sem_prag.adb (Analyze_Pragma, Pragma_Max_Entry_Queue_Length): Refine error message to indicate that the pragma must apply to an entry declaration, not just an entry. --- gcc/ada/sem_prag.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada') diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index f7019ca..a8f8987 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -19452,7 +19452,8 @@ package body Sem_Prag is -- Otherwise the pragma is associated with an illegal construct else - Error_Pragma ("pragma % must apply to a protected entry"); + Error_Pragma + ("pragma % must apply to a protected entry declaration"); return; end if; -- cgit v1.1