From: Arnaud Charlet Date: Fri, 16 Oct 2015 11:00:05 +0000 (+0000) Subject: sem_ch12.adb: Minor punctuation fix in comment X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=07fbef62d559b9b7e9c4563e6c4d17206b91363f;p=gcc.git sem_ch12.adb: Minor punctuation fix in comment 2015-10-16 Arnaud Charlet * 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 b396593ee2a..3c1f20746f6 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2015-10-16 Arnaud Charlet + + * 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 * 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