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

sinfo.ads, [...]: Minor reformatting. 

2014-05-21  Robert Dewar  <dewar@adacore.com>

	* sinfo.ads, sem_ch12.adb, sem_warn.adb: Minor reformatting.

From-SVN: r210706
This commit is contained in:
Robert Dewar 2014-05-21 13:17:41 +00:00 committed by Arnaud Charlet
parent c8a3028c36
commit d3289ba2b4
4 changed files with 21 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2014-05-21 Robert Dewar <dewar@adacore.com>
* sinfo.ads, sem_ch12.adb, sem_warn.adb: Minor reformatting.
2014-05-21 Robert Dewar <dewar@adacore.com>
* sem_elab.adb: Minor reformatting.

21
gcc/ada/sem_ch12.adb
View File

@ -9946,6 +9946,10 @@ package body Sem_Ch12 is
-- appear uninitialized. This is suspicious, unless the actual is a
-- fully initialized type.
-----------------------------
-- Check_Initialized_Types --
-----------------------------
procedure Check_Initialized_Types is
Decl : Node_Id;
Formal : Entity_Id;
@ -9958,11 +9962,10 @@ package body Sem_Ch12 is
and then Needs_Initialized_Actual (Decl))
or else (Nkind (Decl) = N_Formal_Type_Declaration
and then
Nkind (Formal_Type_Definition (Decl)) =
N_Formal_Private_Type_Definition
and then Needs_Initialized_Actual
(Formal_Type_Definition (Decl)))
and then Nkind (Formal_Type_Definition (Decl)) =
N_Formal_Private_Type_Definition
and then Needs_Initialized_Actual
(Formal_Type_Definition (Decl)))
then
Formal := Defining_Identifier (Decl);
Actual := First_Entity (Act_Decl_Id);
@ -9980,9 +9983,8 @@ package body Sem_Ch12 is
and then Warn_On_No_Value_Assigned
then
Error_Msg_NE
("from its use in generic unit, actual for&"
& " should be fully initialized type?",
Actual, Formal);
("from its use in generic unit, actual for& should "
& "be fully initialized type??", Actual, Formal);
exit;
end if;
@ -9993,6 +9995,9 @@ package body Sem_Ch12 is
Next (Decl);
end loop;
end Check_Initialized_Types;
-- Start of processing for Instantiate_Package_Body
begin
Gen_Body_Id := Corresponding_Body (Gen_Decl);

6
gcc/ada/sem_warn.adb
View File

@ -852,10 +852,10 @@ package body Sem_Warn is
end if;
if Res then
Error_Msg_N ("?!variable& of a generic type is "
& "potentially uninitialized", Ent);
Error_Msg_N ("?!variable& of a generic type is potentially "
& "uninitialized", Ent);
Error_Msg_NE ("\?instantiations must provide fully initialized "
& "type for&", Ent, T);
& "type for&", Ent, T);
end if;
return Res;

2
gcc/ada/sinfo.ads
View File

@ -10953,7 +10953,7 @@ package Sinfo is
(1 => True, -- Expressions (List1)
2 => False, -- unused
3 => True, -- Prefix (Node3)
4 => False, -- Generalized_Indexing (Node4-Sem)
4 => False, -- Generalized_Indexing (Node4-Sem)
5 => False), -- Etype (Node5-Sem)
N_Slice =>