From patchwork Wed Jun 23 05:22:06 2010
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: [Ada] pragma Warnings Off (str) should delete continuations
Date: Tue, 22 Jun 2010 19:22:06 -0000
From: Arnaud Charlet <charlet@adacore.com>
X-Patchwork-Id: 56583
Message-Id: <20100623052206.GA25269@adacore.com>
To: Eric Botcazou <ebotcazou@adacore.com>
Cc: gcc-patches@gcc.gnu.org, Robert Dewar <dewar@adacore.com>

> > 	* 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;