Patchwork [Ada] pragma Warnings Off (str) should delete continuations

login
register
mail settings
Submitter Arnaud Charlet
Date June 23, 2010, 5:22 a.m.
Message ID <20100623052206.GA25269@adacore.com>
Download mbox | patch
Permalink /patch/56583/
State New
Headers show

Comments

Arnaud Charlet - June 23, 2010, 5:22 a.m.
> > 	* 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.

Patch

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