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



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@228873 138bc75d-0d04-0410-961f-82ee72b054a4

7 files changed, 16 insertions, 8 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b396593ee2a..3c1f20746f6 100644
--- 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 c985a426817..bc85ea3485d 100644
--- 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 27cd8d564e1..fe10fed0f1f 100644
--- 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 4871b6ffe84..a7d3628d917 100644
--- 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 7b18d2f4089..75373874e27 100644
--- 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 6f9c24d6e0a..d6f53b8a0f9 100644
--- 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 04a160b9f1a..690856163b6 100644
--- 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