sem_ch12.adb: Minor punctuation fix in comment

2015-10-16  Arnaud Charlet  <charlet@adacore.com>

	* sem_ch12.adb: Minor punctuation fix in comment
	* s-rident.ads: Minor consistency fix in comment
	* exp_attr.adb, g-spipat.ads: punctuation fixes in comments.
	* restrict.ads: Style fix in comments.
	* sem_prag.adb: Minor grammar fix in comment

From-SVN: r228873

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b396593ee2a6efd19db47c15d925f2e23dde9c1f..3c1f20746f690be55dfc552db26bfa4a6a1b56c7 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+2015-10-16  Arnaud Charlet  <charlet@adacore.com>
+
+       * sem_ch12.adb: Minor punctuation fix in comment
+       * s-rident.ads: Minor consistency fix in comment
+       * exp_attr.adb, g-spipat.ads: punctuation fixes in comments.
+       * restrict.ads: Style fix in comments.
+       * sem_prag.adb: Minor grammar fix in comment
+
 2015-10-16  Gary Dismukes  <dismukes@adacore.com>
 
        * sem_ch12.adb: Minor reformatting/rewording.

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index c985a426817659dc57b1ed832c0fad1653f71f37..bc85ea3485de63cf1414921dd06a5a75586e48b7 100644 (file)
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -5809,7 +5809,7 @@ package body Exp_Attr is
          --  c) If the prefix is a task type, the size is obtained from the
          --  size variable created for each task type
 
-         --  d) If no storage_size was specified for the type , there is no
+         --  d) If no storage_size was specified for the type, there is no
          --  size variable, and the value is a system-specific default.
 
          else

diff --git a/gcc/ada/g-spipat.ads b/gcc/ada/g-spipat.ads
index 27cd8d564e1eb1ca65fc93e138ef0c415916f29e..fe10fed0f1f429d8b5b0b3ae9c98772034a4b123 100644 (file)
--- a/gcc/ada/g-spipat.ads
+++ b/gcc/ada/g-spipat.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1997-2013, AdaCore                     --
+--                     Copyright (C) 1997-2015, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -899,7 +899,7 @@ package GNAT.Spitbol.Patterns is
    function Span   (Str : VString_Func)                     return Pattern;
    --  Constructs a pattern that matches the longest possible string
    --  consisting entirely of characters from the given argument. The
-   --  string cannot be empty , so the pattern fails if the current
+   --  string cannot be empty, so the pattern fails if the current
    --  character is not one of the characters in Str.
 
    function Succeed                                         return Pattern;

diff --git a/gcc/ada/restrict.ads b/gcc/ada/restrict.ads
index 4871b6ffe8463e6a0373a652d6fb42c0bf805473..a7d3628d917cbb86f0893a8b60a2a232b9d7b43b 100644 (file)
--- a/gcc/ada/restrict.ads
+++ b/gcc/ada/restrict.ads
@@ -282,7 +282,7 @@ package Restrict is
 
    procedure Check_Restriction_No_Specification_Of_Aspect (N : Node_Id);
    --  N is the node id for an N_Aspect_Specification. An error message
-   --  (warning) will be issued if a restriction (warning) was previous set
+   --  (warning) will be issued if a restriction (warning) was previously set
    --  for this aspect using Set_No_Specification_Of_Aspect.
 
    procedure Check_Restriction_No_Use_Of_Attribute (N : Node_Id);
@@ -292,7 +292,7 @@ package Restrict is
 
    procedure Check_Restriction_No_Use_Of_Entity (N : Node_Id);
    --  N is the node id for an entity reference. An error message (warning)
-   --  will be issued if a restriction (warning) was previous set for this
+   --  will be issued if a restriction (warning) was previously set for this
    --  entity name using Set_No_Use_Of_Entity.
 
    procedure Check_Restriction_No_Use_Of_Pragma (N : Node_Id);

diff --git a/gcc/ada/s-rident.ads b/gcc/ada/s-rident.ads
index 7b18d2f40892458b8a2d3cf0457b2fc0326c968a..75373874e2722e5fbf1086fbd1a7ed5aa9a35601 100644 (file)
--- a/gcc/ada/s-rident.ads
+++ b/gcc/ada/s-rident.ads
@@ -458,7 +458,7 @@ package System.Rident is
 
                      --    pragma Dispatching_Policy (FIFO_Within_Priorities);
                      --    pragma Locking_Policy (Ceiling_Locking);
-                     --    pragma Detect_Blocking
+                     --    pragma Detect_Blocking;
 
                      Ravenscar  =>
 

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 6f9c24d6e0a7a5a20ec2f23abfd0c8c0d9ddf44d..d6f53b8a0f950d61c8ab87134f96ac9a7d740abb 100644 (file)
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -9431,7 +9431,7 @@ package body Sem_Ch12 is
       --  no one-to-one correspondence between the two lists (for example,
       --  the actual may include subtypes, itypes, and inherited primitive
       --  operations, interspersed among the renaming declarations for the
-      --  actuals) . We retrieve the corresponding actual by name because each
+      --  actuals). We retrieve the corresponding actual by name because each
       --  actual has the same name as the formal, and they do appear in the
       --  same order.
 

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 04a160b9f1a7178e69dc170c61624f62a2a0821a..690856163b693927e694d0b0df7921a3f5513592 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -9460,7 +9460,7 @@ package body Sem_Prag is
                Profile => Ravenscar);
          end if;
 
-         --  Set the following restrictions which was added to Ada 2012 (see
+         --  Set the following restriction which was added to Ada 2012 (see
          --  AI-0171):
          --    No_Dependence => System.Multiprocessors.Dispatching_Domains