From: Ronan Desplanques <desplanques@adacore.com>
Date: Thu, 6 Mar 2025 11:54:44 +0000 (+0100)
Subject: ada: Tweak error recovery path
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e9066cf788e689a119a068ecf38e17c666bfb6a4;p=thirdparty%2Fgcc.git

ada: Tweak error recovery path

Before this patch, the constant mark of object declarations was stripped
in some error situations. This behavior is currently not useful so this
patch removes it.

gcc/ada/ChangeLog:

	* sem_ch3.adb (Analyze_Object_Declaration): Tweak error handling.
---

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index a8764db6503..4161ce39fa3 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -4552,7 +4552,6 @@ package body Sem_Ch3 is
             Error_Msg_N
               ("\declaration requires an initialization expression",
                 N);
-            Set_Constant_Present (N, False);
 
          --  In Ada 83, deferred constant must be of private type