[Ada] Minor editorial changes in comments

2020-06-15  Gary Dismukes  <dismukes@adacore.com>

gcc/ada/

	* exp_ch9.ads (Build_Master_Declaration): Add commas.
	* exp_ch9.adb (Build_Master_Entity): Spelling fix ("build" =>
	"built").
	(Build_Task_Activation_Call): Fix word order.

diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index da6e3095b27f41c780fb263283ea06e3aade5e6d..adbaa7baad188593377015ea636802105fe0d679 100644 (file)
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -3447,7 +3447,7 @@ package body Exp_Ch9 is
          Find_Enclosing_Context (Par, Context, Context_Id, Decls);
       end if;
 
-      --  Nothing to do if the context already has a master; internally build
+      --  Nothing to do if the context already has a master; internally built
       --  finalizers don't need a master.
 
       if Has_Master_Entity (Context_Id)
@@ -4856,7 +4856,7 @@ package body Exp_Ch9 is
       Chain := Activation_Chain_Entity (Owner);
 
       --  Nothing to do when there are no tasks to activate. This is indicated
-      --  by a missing activation chain entity; skip also generating it when
+      --  by a missing activation chain entity; also skip generating it when
       --  it is a ghost entity.
 
       if No (Chain) or else Is_Ignored_Ghost_Entity (Chain) then

diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads
index 3656ac7cdaa6f33bbe2f6ac5e1060bf8941a16d3..59930a65795c4fde3ba9344d3d6be15db0d35b9c 100644 (file)
--- a/gcc/ada/exp_ch9.ads
+++ b/gcc/ada/exp_ch9.ads
@@ -56,9 +56,9 @@ package Exp_Ch9 is
    --  a renaming of the said master to service the access type.
 
    function Build_Master_Declaration (Loc : Source_Ptr) return Node_Id;
-   --  For targets supporting tasks generate:
+   --  For targets supporting tasks, generate:
    --      _Master : constant Integer := Current_Master.all;
-   --  For targets where tasks or tasking hierarchies are prohibited generate:
+   --  For targets where tasks or tasking hierarchies are prohibited, generate:
    --      _Master : constant Master_Id := 3;
 
    procedure Build_Master_Entity (Obj_Or_Typ : Entity_Id);