diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 050a304ea73..b396593ee2a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,12 @@ +2015-10-16 Gary Dismukes + + * sem_ch12.adb: Minor reformatting/rewording. + +2015-10-16 Arnaud Charlet + + * einfo.ads: Minor fix of duplicate words + * rident.ads: Minor style fix in comment + 2015-10-16 Hristian Kirtchev * exp_ch3.adb (Expand_N_Full_Type_Declaration): Do not capture, diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index 6ca5e5e0140..49d26fb5078 100644 --- 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 615e17bfc78..2ebd4f8f034 100644 --- 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 e848307fdb8..6f9c24d6e0a 100644 --- 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)