diff mbox

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

Message ID 20100623052206.GA25269@adacore.com
State New
Headers show

Commit Message

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

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;