[Ada] Update 'Loop_Entry checking to match changes in 'Old rules.
authorSteve Baird <baird@adacore.com>
Fri, 27 Mar 2020 22:50:29 +0000 (15:50 -0700)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 15 Jun 2020 08:04:18 +0000 (04:04 -0400)
2020-06-15  Steve Baird  <baird@adacore.com>

gcc/ada/

* sem_attr.adb (Analyze_Attribute): In the Loop_Entry case,
replace a call to Statically_Denotes_Object with a call to
Statically_Names_Object and clean up the preceding comment.

gcc/ada/sem_attr.adb

index 86772d64a06ab85e7188b091c20fca9d5e6b6fd6..2c3cd50f462c2b47f472ee1e43f8f21cb4bbee0d 100644 (file)
@@ -4541,13 +4541,13 @@ package body Sem_Attr is
 
          Check_References_In_Prefix (Loop_Id);
 
-         --  The prefix must denote a static entity if the pragma does not
+         --  The prefix must statically name an object if the pragma does not
          --  apply to the innermost enclosing loop statement, or if it appears
-         --  within a potentially unevaluated epxression.
+         --  within a potentially unevaluated expression.
 
          if Is_Entity_Name (P)
            or else Nkind (Parent (P)) = N_Object_Renaming_Declaration
-           or else Statically_Denotes_Object (P)
+           or else Statically_Names_Object (P)
          then
             null;