OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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
This commit is contained in:
Arnaud Charlet 2015-10-16 12:56:54 +02:00
parent 1af4455aac
commit e1d458b026
4 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/ChangeLog
View File

@ -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,

2
gcc/ada/einfo.ads
View File

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

4
gcc/ada/rident.ads
View File

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

2
gcc/ada/sem_ch12.adb
View File

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