From patchwork Mon Jun 14 13:47:20 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Arnaud Charlet X-Patchwork-Id: 55536 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id AD3DAB7D84 for ; Mon, 14 Jun 2010 23:47:21 +1000 (EST) Received: (qmail 32170 invoked by alias); 14 Jun 2010 13:47:16 -0000 Received: (qmail 32055 invoked by uid 22791); 14 Jun 2010 13:47:14 -0000 X-SWARE-Spam-Status: No, hits=-1.8 required=5.0 tests=AWL, BAYES_00, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mel.act-europe.fr (HELO mel.act-europe.fr) (212.99.106.210) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Mon, 14 Jun 2010 13:47:10 +0000 Received: from localhost (localhost [127.0.0.1]) by filtered-smtp.eu.adacore.com (Postfix) with ESMTP id 139A4CB02B0; Mon, 14 Jun 2010 15:47:13 +0200 (CEST) Received: from mel.act-europe.fr ([127.0.0.1]) by localhost (smtp.eu.adacore.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id dCBJJI0cMn-J; Mon, 14 Jun 2010 15:47:13 +0200 (CEST) Received: from saumur.act-europe.fr (saumur.act-europe.fr [10.10.0.183]) by mel.act-europe.fr (Postfix) with ESMTP id 01840CB02A3; Mon, 14 Jun 2010 15:47:13 +0200 (CEST) Received: by saumur.act-europe.fr (Postfix, from userid 525) id 2AD12D9B31; Mon, 14 Jun 2010 15:47:20 +0200 (CEST) Date: Mon, 14 Jun 2010 15:47:20 +0200 From: Arnaud Charlet To: gcc-patches@gcc.gnu.org Cc: Robert Dewar Subject: [Ada] Clarify message for missing pragma argument identifier Message-ID: <20100614134720.GA12773@adacore.com> Mime-Version: 1.0 Content-Disposition: inline User-Agent: Mutt/1.5.9i X-IsSubscribed: yes Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org 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 * 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