From patchwork Wed Jun 23 05:22:06 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Arnaud Charlet X-Patchwork-Id: 56583 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 2DAA3B6F11 for ; Wed, 23 Jun 2010 15:22:12 +1000 (EST) Received: (qmail 32362 invoked by alias); 23 Jun 2010 05:22:10 -0000 Received: (qmail 32354 invoked by uid 22791); 23 Jun 2010 05:22:09 -0000 X-SWARE-Spam-Status: No, hits=-1.8 required=5.0 tests=AWL, BAYES_00, WEIRD_QUOTING 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; Wed, 23 Jun 2010 05:22:03 +0000 Received: from localhost (localhost [127.0.0.1]) by filtered-smtp.eu.adacore.com (Postfix) with ESMTP id D89F9CB026A; Wed, 23 Jun 2010 07:22:06 +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 q053QLCmfaeY; Wed, 23 Jun 2010 07:22:06 +0200 (CEST) Received: from province.act-europe.fr (province.act-europe.fr [10.10.0.214]) by mel.act-europe.fr (Postfix) with ESMTP id C34E3CB024A; Wed, 23 Jun 2010 07:22:06 +0200 (CEST) Received: by province.act-europe.fr (Postfix, from userid 525) id B8C44164816; Wed, 23 Jun 2010 07:22:06 +0200 (CEST) Date: Wed, 23 Jun 2010 07:22:06 +0200 From: Arnaud Charlet To: Eric Botcazou Cc: gcc-patches@gcc.gnu.org, Robert Dewar Subject: Re: [Ada] pragma Warnings Off (str) should delete continuations Message-ID: <20100623052206.GA25269@adacore.com> References: <20100622173105.GA1161@adacore.com> <201006222055.25899.ebotcazou@adacore.com> MIME-Version: 1.0 Content-Disposition: inline In-Reply-To: <201006222055.25899.ebotcazou@adacore.com> User-Agent: Mutt/1.5.17 (2007-11-01) 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 > > * errout.adb (Finalize): Set Prev pointers. > > (Finalize): Delete continuations for deletion by warnings off(str). > > * erroutc.ads: Add Prev pointer to error message structure. > > This apparently causes gnat.dg/not_null.adb to fail. Indeed, I forgot to update this test case, now done. --- not_null.adb (revision 161240) +++ not_null.adb (working copy) @@ -11,10 +11,8 @@ procedure not_null is begin declare pragma Warnings (Off, "*null not allowed in null-excluding objects"); - pragma Warnings (Off, """Constraint_Error"" will be raised at run time"); package Inst_2 is new GPack (null); pragma Warnings (On, "*null not allowed in null-excluding objects"); - pragma Warnings (On, """Constraint_Error"" will be raised at run time"); begin null; end;