From patchwork Mon Jun 14 13:47:20 2010
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: [Ada] Clarify message for missing pragma argument identifier
From: Arnaud Charlet <charlet@adacore.com>
X-Patchwork-Id: 55536
Message-Id: <20100614134720.GA12773@adacore.com>
To: gcc-patches@gcc.gnu.org
Cc: Robert Dewar <dewar@adacore.com>
Date: Mon, 14 Jun 2010 15:47:20 +0200

This patch clarifies the message for a missing pragma argument
identifier, as shown by this test program:

     1. pragma Restrictions
     2.   (Max_asynchronous_select_nesting => 0,
     3.    No_task_hierarchy);
           |
        >>> pragma argument identifier required here
        >>> since previous argument had identifier (RM 2.8(4))

     4. procedure PAI_Message is
     5. begin
     6.    null;
     7. end;

Tested on x86_64-pc-linux-gnu, committed on trunk

2010-06-14  Robert Dewar  <dewar@adacore.com>

	* par-ch2.adb (Scan_Pragma_Argument_Association): Clarify message for
	missing pragma argument identifier.


Index: par-ch2.adb
===================================================================
--- par-ch2.adb	(revision 160705)
+++ par-ch2.adb	(working copy)
@@ -503,7 +503,9 @@ package body Ch2 is
 
       if Identifier_Seen and not Id_Present then
          Error_Msg_SC
-           ("|pragma argument identifier required here (RM 2.8(4))");
+           ("|pragma argument identifier required here");
+         Error_Msg_SC
+           ("\since previous argument had identifier (RM 2.8(4))");
       end if;
 
       if Id_Present then