[multiple changes]

2013-04-11  Robert Dewar  <dewar@adacore.com>

	* stand.ads: Minor reformatting.

2013-04-11  Matthew Heaney  <heaney@adacore.com>

	* a-convec.adb, a-coinve.adb, a-cobove.adb ("="): Increment lock
	counts before entering loop.
	(Find, Find_Index): Ditto.
	(Is_Sorted, Merge, Sort): Ditto.
	(Reverse_Find, Reverse_Find_Index): Ditto.

From-SVN: r197765

gcc/ada/ChangeLog

 2013-04-11  Robert Dewar  <dewar@adacore.com>
 
+	* stand.ads: Minor reformatting.
+
+2013-04-11  Matthew Heaney  <heaney@adacore.com>
+
+	* a-convec.adb, a-coinve.adb, a-cobove.adb ("="): Increment lock
+	counts before entering loop.
+	(Find, Find_Index): Ditto.
+	(Is_Sorted, Merge, Sort): Ditto.
+	(Reverse_Find, Reverse_Find_Index): Ditto.
+
+2013-04-11  Robert Dewar  <dewar@adacore.com>
+
 	* exp_ch11.ads, exp_ch11.adb (Expand_N_Raise_Expression): New procedure.
 	* exp_util.adb (Insert_Actions): Add entry for N_Raise_Expression.
 	* expander.adb: Add call to Expand_N_Raise_Expression.

gcc/ada/stand.ads

@@ -364,23 +364,21 @@ package Stand is
    Any_Type : Entity_Id;
    --  Used to represent some unknown type. Any_Type is the type of an
    --  unresolved operator, and it is the type of a node where a type error
-   --  has been detected.  Any_Type plays an important role in avoiding
-   --  cascaded errors, because it is compatible with all other types, and is
-   --  propagated to any expression that has a subexpression of Any_Type.
-   --  When resolving operators, Any_Type is the initial type of the node
-   --  before any of its candidate interpretations has been examined. If after
-   --  examining all of them the type is still Any_Type, the node has no
-   --  possible interpretation and an error can be emitted (and Any_Type will
-   --  be propagated upwards).
-
+   --  has been detected. Any_Type plays an important role in avoiding cascaded
+   --  errors, because it is compatible with all other types, and is propagated
+   --  to any expression that has a subexpression of Any_Type. When resolving
+   --  operators, Any_Type is the initial type of the node before any of its
+   --  candidate interpretations has been examined. If after examining all of
+   --  them the type is still Any_Type, the node has no possible interpretation
+   --  and an error can be emitted (and Any_Type will be propagated upwards).
+   --
    --  There is one situation in which Any_Type is used to legitimately
-   --  represent a case where the type is not known pre-resolution, and
-   --  that is for the N_Raise_Expression node. In this case, the Etype
-   --  being set to Any_Type is normal and does not represent an error.
-   --  In particular, it is compatible with the type of any constituend of
-   --  the enclosing expression, if any.  The type is eventually replaced
-   --  with the type of the context, which plays no role in the resolution
-   --  of the Raise_Expression.
+   --  represent a case where the type is not known pre-resolution, and that
+   --  is for the N_Raise_Expression node. In this case, the Etype being set to
+   --  Any_Type is normal and does not represent an error. In particular, it is
+   --  compatible with the type of any constituent of the enclosing expression,
+   --  if any. The type is eventually replaced with the type of the context,
+   --  which plays no role in the resolution of the Raise_Expression.
 
    Any_Access : Entity_Id;
    --  Used to resolve the overloaded literal NULL