[multiple changes]

2015-10-16  Gary Dismukes  <dismukes@adacore.com>

	* sem_ch12.adb: Minor reformatting/rewording.

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

	* einfo.ads: Minor fix of duplicate words
	* rident.ads: Minor style fix in comment

From-SVN: r228872

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 050a304ea7353d73e5484d3fb4e5b356354381e4..b396593ee2a6efd19db47c15d925f2e23dde9c1f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,12 @@
+2015-10-16  Gary Dismukes  <dismukes@adacore.com>
+
+       * sem_ch12.adb: Minor reformatting/rewording.
+
+2015-10-16  Arnaud Charlet  <charlet@adacore.com>
+
+       * einfo.ads: Minor fix of duplicate words
+       * rident.ads: Minor style fix in comment
+
 2015-10-16  Hristian Kirtchev  <kirtchev@adacore.com>
 
        * exp_ch3.adb (Expand_N_Full_Type_Declaration): Do not capture,

diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads
index 6ca5e5e014038f1127f90b8593a3d08a89d44b89..49d26fb5078077ec5039cb52e8ffbc43210aa9af 100644 (file)
--- a/gcc/ada/einfo.ads
+++ b/gcc/ada/einfo.ads
@@ -1525,7 +1525,7 @@ package Einfo is
 --       node will be present on the rep item chain for the entity. For a
 --       derived type that inherits a default from its ancestor, the default
 --       value is set, but it may be overridden by an aspect declaration on
---       type type derivation.
+--       type derivation.
 
 --    Has_Default_Init_Cond (Flag3) [base type only]
 --       Defined in all type entities. Set if pragma Default_Initial_Condition

diff --git a/gcc/ada/rident.ads b/gcc/ada/rident.ads
index 615e17bfc78ed1bd47ae15994beb0473954450a0..2ebd4f8f034585e7e248bf7b98af3c91f600ea99 100644 (file)
--- a/gcc/ada/rident.ads
+++ b/gcc/ada/rident.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2012, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2015, Free Software Foundation, Inc.         --
 --                                                                          --
 -- 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- --
@@ -42,7 +42,7 @@
 
 --  Rather than have clients instantiate System.Rident directly, we have the
 --  single instantiation here at the library level, which means that we only
---  have one copy of the image tables
+--  have one copy of the image tables.
 
 with System.Rident;
 

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index e848307fdb8687e11f3bf9003d46a3b8c4a4bbd2..6f9c24d6e0a7a5a20ec2f23abfd0c8c0d9ddf44d 100644 (file)
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -2824,7 +2824,7 @@ package body Sem_Ch12 is
          Set_Is_Dispatching_Operation (Nam);
 
          --  A formal abstract procedure cannot have a null default
-         --  (RM 12.6(4 1.2)).
+         --  (RM 12.6(4.1/2)).
 
          if Nkind (Spec) = N_Procedure_Specification
            and then Null_Present (Spec)