Code cleanup related to handing of static expression functions in
GNATprove; behaviour is unaffected.

Tested on x86_64-pc-linux-gnu, committed on trunk

gcc/ada/

        * sem_ch6.adb (Analyze_Expression_Function): Use Orig_N variable
        instead of repeated calls to Original_Node.
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -561,7 +561,7 @@ package body Sem_Ch6 is
                   Push_Scope (Def_Id);
                   Install_Formals (Def_Id);
                   Preanalyze_Formal_Expression (Expr, Typ);
-                  Check_Limited_Return (Original_Node (N), Expr, Typ);
+                  Check_Limited_Return (Orig_N, Expr, Typ);
                   End_Scope;
                end if;
 
@@ -630,7 +630,7 @@ package body Sem_Ch6 is
          Check_Dynamically_Tagged_Expression
            (Expr        => Expr,
             Typ         => Etype (Def_Id),
-            Related_Nod => Original_Node (N));
+            Related_Nod => Orig_N);
       end if;
 
       --  We must enforce checks for unreferenced formals in our newly


Reply via email to