diff options
author | Gary Dismukes <dismukes@adacore.com> | 2020-04-01 12:38:16 -0400 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-15 04:04:38 -0400 |
commit | 2b20de3abdb894c847d2741f35910d584c8f699a (patch) | |
tree | 7a76e14659ee58c0bf8775e1601491ca9f0650fb | |
parent | b85120adbab0723862baed90c0430b39b2d6b938 (diff) | |
download | gcc-2b20de3abdb894c847d2741f35910d584c8f699a.zip gcc-2b20de3abdb894c847d2741f35910d584c8f699a.tar.gz gcc-2b20de3abdb894c847d2741f35910d584c8f699a.tar.bz2 |
[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.
-rw-r--r-- | gcc/ada/exp_ch9.adb | 4 | ||||
-rw-r--r-- | gcc/ada/exp_ch9.ads | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index da6e309..adbaa7b 100644 --- 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 3656ac7..59930a6 100644 --- 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); |