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

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

2014-08-04  Robert Dewar  <dewar@adacore.com>

	* exp_prag.adb, sem_ch7.adb, einfo.adb, sem_prag.adb, sem_util.adb,
	exp_ch3.adb: Minor reformatting.

From-SVN: r213553
This commit is contained in:
Robert Dewar 2014-08-04 10:01:41 +00:00 committed by Arnaud Charlet
parent e477d718a3
commit ff7a5bcbdf
7 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2014-08-04 Robert Dewar <dewar@adacore.com>
* exp_prag.adb, sem_ch7.adb, einfo.adb, sem_prag.adb, sem_util.adb,
exp_ch3.adb: Minor reformatting.
2014-08-04 Robert Dewar <dewar@adacore.com>
* prj-strt.adb, prj-strt.ads, sem_attr.adb: Minor reformatting.

7
gcc/ada/einfo.adb
View File

@ -7896,7 +7896,6 @@ package body Einfo is
(Num => Significand * 2 ** (Exponent mod 4),
Den => -Exponent / 4,
Rbase => 16);
else
return
UR_From_Components
@ -7981,9 +7980,9 @@ package body Einfo is
begin
pragma Assert
(Is_Type (Id)
and then (Has_Default_Init_Cond (Id)
or Has_Inherited_Default_Init_Cond (Id)));
(Is_Type (Id) and then (Has_Default_Init_Cond (Id)
or
Has_Inherited_Default_Init_Cond (Id)));
S := Subprograms_For_Type (Id);
Set_Subprograms_For_Type (Id, V);

5
gcc/ada/exp_ch3.adb
View File

@ -6039,8 +6039,9 @@ package body Exp_Ch3 is
-- Note that the check is generated for source objects only
if Comes_From_Source (Def_Id)
and then (Has_Default_Init_Cond (Base_Typ)
or else Has_Inherited_Default_Init_Cond (Base_Typ))
and then (Has_Default_Init_Cond (Base_Typ)
or else
Has_Inherited_Default_Init_Cond (Base_Typ))
then
declare
DIC_Call : constant Node_Id :=

3
gcc/ada/exp_prag.adb
View File

@ -1159,8 +1159,7 @@ package body Exp_Prag is
Expression => New_Copy_Tree (Internal)),
Make_Pragma_Argument_Association (Eloc,
Expression =>
Make_String_Literal (Sloc => Ploc,
Strval => "common_object")),
Make_String_Literal (Sloc => Ploc, Strval => "common_object")),
Make_Pragma_Argument_Association (Ploc,
Expression => New_Copy_Tree (Psect)))));
end Expand_Pragma_Common_Object;

3
gcc/ada/sem_ch7.adb
View File

@ -1352,8 +1352,7 @@ package body Sem_Ch7 is
-- Inspect the entities defined in the package and ensure that all
-- incomplete types have received full declarations. Build default
-- initial condition and invariant procedures for all types that
-- qualify.
-- initial condition and invariant procedures for all qualifying types.
E := First_Entity (Id);
while Present (E) loop

2
gcc/ada/sem_prag.adb
View File

@ -12781,7 +12781,7 @@ package body Sem_Prag is
if Pragma_Name (Stmt) = Pname then
Error_Msg_Name_1 := Pname;
Error_Msg_Sloc := Sloc (Stmt);
Error_Msg_N ("pragma % duplicates pragma declared #", N);
Error_Msg_N ("pragma % duplicates pragma declared#", N);
end if;
-- Skip internally generated code

3
gcc/ada/sem_util.adb
View File

@ -1392,8 +1392,7 @@ package body Sem_Util is
Make_Defining_Identifier (Loc,
Chars => New_External_Name (Chars (Typ), "Default_Init_Cond"));
-- Associate the default initial condition procedure with the private
-- type.
-- Associate default initial condition procedure with the private type
Set_Ekind (Proc_Id, E_Procedure);
Set_Is_Default_Init_Cond_Procedure (Proc_Id);