Commit 371e21cf by Gary Dismukes Committed by Pierre-Marie de Rodat

[Ada] Minor reformattings

2018-12-11  Gary Dismukes  <dismukes@adacore.com>

gcc/ada/

	* exp_util.ads: Use preferred U.S. spelling of "honored".
	* sem_spark.adb: Remove extra whitespace.

From-SVN: r266997
parent e2819941
2018-12-11 Gary Dismukes <dismukes@adacore.com>
* exp_util.ads: Use preferred U.S. spelling of "honored".
* sem_spark.adb: Remove extra whitespace.
2018-12-11 Hristian Kirtchev <kirtchev@adacore.com> 2018-12-11 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb (Insert_Action): Add new formal parameter * exp_util.adb (Insert_Action): Add new formal parameter
......
...@@ -96,7 +96,7 @@ package Exp_Util is ...@@ -96,7 +96,7 @@ package Exp_Util is
-- above. The action is analyzed using the default checks after it is -- above. The action is analyzed using the default checks after it is
-- inserted. Assoc_Node is the node with which the action is associated. -- inserted. Assoc_Node is the node with which the action is associated.
-- When flag Spec_Expr_OK is set, insertions triggered in the context of -- When flag Spec_Expr_OK is set, insertions triggered in the context of
-- spec expressions are honoured, even though they contradict "Handling -- spec expressions are honored, even though they contradict "Handling
-- of Default and Per-Object Expressions". -- of Default and Per-Object Expressions".
procedure Insert_Action procedure Insert_Action
...@@ -109,7 +109,7 @@ package Exp_Util is ...@@ -109,7 +109,7 @@ package Exp_Util is
-- by the given Suppress argument after it is inserted. Assoc_Node is -- by the given Suppress argument after it is inserted. Assoc_Node is
-- the node with which the action is associated. When flag Spec_Expr_OK -- the node with which the action is associated. When flag Spec_Expr_OK
-- is set, insertions triggered in the context of spec expressions are -- is set, insertions triggered in the context of spec expressions are
-- honoured, even though they contradict "Handling of Default and Per- -- honored, even though they contradict "Handling of Default and Per-
-- Object Expressions". -- Object Expressions".
procedure Insert_Actions procedure Insert_Actions
...@@ -121,7 +121,7 @@ package Exp_Util is ...@@ -121,7 +121,7 @@ package Exp_Util is
-- after they are inserted. Assoc_Node is the node with which the actions -- after they are inserted. Assoc_Node is the node with which the actions
-- are associated. Ins_Actions may be No_List, in which case the call has -- are associated. Ins_Actions may be No_List, in which case the call has
-- no effect. When flag Spec_Expr_OK is set, insertions triggered in the -- no effect. When flag Spec_Expr_OK is set, insertions triggered in the
-- context of spec expressions are honoured, even though they contradict -- context of spec expressions are honored, even though they contradict
-- "Handling of Default and Per-Object Expressions". -- "Handling of Default and Per-Object Expressions".
procedure Insert_Actions procedure Insert_Actions
...@@ -135,7 +135,7 @@ package Exp_Util is ...@@ -135,7 +135,7 @@ package Exp_Util is
-- Assoc_Node is the node with which the actions are associated. List -- Assoc_Node is the node with which the actions are associated. List
-- Ins_Actions may be No_List, in which case the call has no effect. -- Ins_Actions may be No_List, in which case the call has no effect.
-- When flag Spec_Expr_OK is set, insertions triggered in the context of -- When flag Spec_Expr_OK is set, insertions triggered in the context of
-- spec expressions are honoured, even though they contradict "Handling -- spec expressions are honored, even though they contradict "Handling
-- of Default and Per-Object Expressions". -- of Default and Per-Object Expressions".
procedure Insert_Action_After procedure Insert_Action_After
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment