sem_ch3.adb, [...]: Minor reformatting.

2011-12-02  Robert Dewar  <dewar@adacore.com>

	* sem_ch3.adb, sem_attr.adb, a-comutr.adb, a-cbmutr.adb,
	a-cbmutr.ads: Minor reformatting.

From-SVN: r181922
This commit is contained in:
Robert Dewar 2011-12-02 15:14:29 +00:00 committed by Arnaud Charlet
parent cbe9d63036
commit d600ef1636
6 changed files with 17 additions and 3 deletions

View File

@ -1,3 +1,8 @@
2011-12-02 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_attr.adb, a-comutr.adb, a-cbmutr.adb,
a-cbmutr.ads: Minor reformatting.
2011-12-02 Hristian Kirtchev <kirtchev@adacore.com>
* exp_dbug.adb: Comment reformatting.

View File

@ -2047,6 +2047,7 @@ package body Ada.Containers.Bounded_Multiway_Trees is
declare
Nodes : Tree_Node_Array renames Object.Container.Nodes;
Node : Count_Type;
begin
Node := Position.Node;

View File

@ -302,6 +302,9 @@ private
use Ada.Streams;
No_Node : constant Count_Type'Base := -1;
-- Need to document all global declarations such as this ???
-- Following decls also need much more documentation ???
type Children_Type is record
First : Count_Type'Base;

View File

@ -51,6 +51,9 @@ package body Ada.Containers.Multiway_Trees is
-- Subtree_Iterator --
-----------------------
-- ??? these headers are a bit odd, but for sure they do not substitute
-- for documenting things, what *is* a Subtree_Iterator?
type Subtree_Iterator is new Root_Iterator with null record;
overriding function First (Object : Subtree_Iterator) return Cursor;

View File

@ -8648,7 +8648,6 @@ package body Sem_Attr is
then
declare
D : constant Node_Id := Declaration_Node (Entity (P));
begin
Error_Msg_N ("aliased object has explicit bounds?",
D);

View File

@ -9526,6 +9526,7 @@ package body Sem_Ch3 is
-- In case of previous errors, other expansion actions that provide
-- bodies for null procedures with not be invoked, so inhibit message
-- in those cases.
-- Note that E_Operator is not in the list that follows, because
-- this kind is reserved for predefined operators, that are
-- intrinsic and do not need completion.
@ -9583,6 +9584,8 @@ package body Sem_Ch3 is
May_Need_Implicit_Body (E);
end if;
-- Comment needed here for Is_Generic_Type test ???
elsif Ekind (E) = E_Incomplete_Type
and then No (Underlying_Type (E))
and then not Is_Generic_Type (E)