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

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.

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

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;

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);

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  =>
 

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.
 

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