[gcc r12-2193] [Ada] Avoid repeated calls in analysis of expression functions

[gcc r12-2193] [Ada] Avoid repeated calls in analysis of expression functions

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:8a13a0017e52979c4b55f4c6294f4794882a9ce7

commit r12-2193-g8a13a0017e52979c4b55f4c6294f4794882a9ce7
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Fri May 28 14:53:21 2021 +0200

    [Ada] Avoid repeated calls in analysis of expression functions
    
    gcc/ada/
    
            * sem_ch6.adb (Analyze_Expression_Function): Use Orig_N variable
            instead of repeated calls to Original_Node.

Diff:
---
 gcc/ada/sem_ch6.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 6bc72d65bf6..ed76808ec76 100644
--- 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