From: Ronan Desplanques <desplanques@adacore.com>
Date: Fri, 28 Feb 2025 11:19:12 +0000 (+0100)
Subject: ada: Improve readability in Atree.Rewrite body
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=880e6752ad94fe0b690fbe39b49e1d6db026db12;p=thirdparty%2Fgcc.git

ada: Improve readability in Atree.Rewrite body

This patch visually packs together the statements that implement the
exceptions in Rewrite that a few fields are not actually overwritten, in
order to improve the readability of the code.

gcc/ada/ChangeLog:

	* atree.adb (Rewrite): Improve readability.
---

diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb
index 8a69a0c224d..3fa55a7fc65 100644
--- a/gcc/ada/atree.adb
+++ b/gcc/ada/atree.adb
@@ -2271,10 +2271,10 @@ package body Atree is
       --  Copy substitute node into place, preserving old fields as required
 
       Copy_Node (Source => New_Node, Destination => Old_Node);
-      Set_Error_Posted (Old_Node, Old_Error_Posted);
 
       Set_Check_Actuals (Old_Node, Old_CA);
       Set_Is_Ignored_Ghost_Node (Old_Node, Old_Is_IGN);
+      Set_Error_Posted (Old_Node, Old_Error_Posted);
 
       if Nkind (New_Node) in N_Subexpr then
          Set_Paren_Count     (Old_Node, Old_Paren_Count);