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

[multiple changes] 

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

	* inline.adb, stand.ads, sem_ch6.adb, sem_ch8.adb: Minor reformatting.

2011-08-02  Yannick Moy  <moy@adacore.com>

	* sem_ch4.ads: minor formatting.

From-SVN: r177176
This commit is contained in:
Arnaud Charlet 2011-08-02 17:12:44 +02:00
parent 2ba431e53e
commit afc8324d66
6 changed files with 45 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/ChangeLog
View File

@ -1,3 +1,11 @@
2011-08-02 Robert Dewar <dewar@adacore.com>
* inline.adb, stand.ads, sem_ch6.adb, sem_ch8.adb: Minor reformatting.
2011-08-02 Yannick Moy <moy@adacore.com>
* sem_ch4.ads: minor formatting.
2011-08-02 Yannick Moy <moy@adacore.com>
* sem_aggr.adb, err_vars.ads, sem_ch3.adb, sem_ch5.adb, sem_ch9.adb,

2
gcc/ada/sem_ch4.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2010, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2011, 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- --

3
gcc/ada/sem_ch6.adb
View File

@ -631,8 +631,7 @@ package body Sem_Ch6 is
Analyze_And_Resolve (Expr, R_Type);
Check_Limited_Return (Expr);
-- The only RETURN allowed in SPARK is as the last statement of the
-- function.
-- RETURN only allowed in SPARK is as the last statement function
if Nkind (Parent (N)) /= N_Handled_Sequence_Of_Statements
and then

1
gcc/ada/sem_ch8.adb
View File

@ -2442,7 +2442,6 @@ package body Sem_Ch8 is
if CW_Actual then
null;
else
Check_Mode_Conformant (New_S, Old_S);
end if;

3
gcc/ada/stand.ads
View File

@ -313,7 +313,8 @@ package Stand is
Boolean_Literals : array (Boolean) of Entity_Id;
-- Entities for the two boolean literals, used by the expander
-- Standard types which are in ALFA are associated to True
-- Standard types which are in ALFA are associated set to True
Standard_Type_Is_In_ALFA : array (S_Types) of Boolean :=
(S_Boolean => True,