exp_attr.adb, [...]: Minor reformatting.

2012-11-06  Robert Dewar  <dewar@adacore.com>

	* exp_attr.adb, sem_attr.adb: Minor reformatting.

From-SVN: r193230

gcc/ada/ChangeLog

@@ -1,3 +1,7 @@
+2012-11-06  Robert Dewar  <dewar@adacore.com>
+
+	* exp_attr.adb, sem_attr.adb: Minor reformatting.
+
 2012-11-06  Gary Dismukes  <dismukes@adacore.com>
 
 	* exp_attr.adb (Expand_N_Attribute_Reference): Apply a predicate

gcc/ada/exp_attr.adb

@@ -5627,6 +5627,9 @@ package body Exp_Attr is
                --  function, then issue a warning that this will cause infinite
                --  recursion.
 
+               --  Do we have to issue these warnings in the expander rather
+               --  than during analysis (means they are skipped in -gnatc???).
+
                if Current_Scope = Pred_Func then
                   Error_Msg_N
                     ("attribute Valid requires a predicate check?", N);

gcc/ada/sem_attr.adb

@@ -7235,6 +7235,8 @@ package body Sem_Attr is
       -- Loop_Entry --
       ----------------
 
+      --  This null processing requires an explanatory comment???
+
       when Attribute_Loop_Entry =>
          null;