[gcc r16-1308] ada: Improve readability in Atree.Rewrite body

[Marc Poulhies via Gcc-cvs]

https://gcc.gnu.org/g:880e6752ad94fe0b690fbe39b49e1d6db026db12

commit r16-1308-g880e6752ad94fe0b690fbe39b49e1d6db026db12
Author: Ronan Desplanques <desplanq...@adacore.com>
Date:   Fri Feb 28 12:19:12 2025 +0100

    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:
---
 gcc/ada/atree.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb
index 8a69a0c224de..3fa55a7fc653 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);