From: Viljar Indus <indus@adacore.com>
Date: Wed, 30 Apr 2025 10:50:27 +0000 (+0300)
Subject: ada: Mark errors that are removed as deleted
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=ead57a9ad8cb8431864f9ebe86778be58c76e159;p=thirdparty%2Fgcc.git

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 2554d5895b3..5ba44a21d21 100644
--- 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 707851ac6a7..26095520fa1 100644
--- 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;