ada: Mark errors that are removed as deleted

gcc/ada/ChangeLog:

	* errout.adb (Remove_Warning_Messages): Mark removed messages as
	deleted.
	* erroutc.adb (Purge_Messages): Likewise.

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index 2554d5895b3a36057d81f1fa2f625f04df43096c..5ba44a21d2137da080653abe726bd1d6a9055ca3 100644 (file)
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -3364,6 +3364,8 @@ package body Errout is
          E := First_Error_Msg;
          while E /= No_Error_Msg loop
             while To_Be_Removed (Errors.Table (E).Next) loop
+               Errors.Table (Errors.Table (E).Next).Deleted := True;
+
                Errors.Table (E).Next :=
                  Errors.Table (Errors.Table (E).Next).Next;
 

diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb
index 707851ac6a7a3feda37aa69cfcc3e2757c9e4a7f..26095520fa1b670d2a33d2e9493ab44e46765683 100644 (file)
--- a/gcc/ada/erroutc.adb
+++ b/gcc/ada/erroutc.adb
@@ -1332,6 +1332,8 @@ package body Erroutc is
       E := First_Error_Msg;
       while E /= No_Error_Msg loop
          while To_Be_Purged (Errors.Table (E).Next) loop
+            Errors.Table (Errors.Table (E).Next).Deleted := True;
+
             Errors.Table (E).Next :=
               Errors.Table (Errors.Table (E).Next).Next;
          end loop;