[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:
parent
2ba431e53e
commit
afc8324d66
|
@ -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>
|
2011-08-02 Yannick Moy <moy@adacore.com>
|
||||||
|
|
||||||
* sem_aggr.adb, err_vars.ads, sem_ch3.adb, sem_ch5.adb, sem_ch9.adb,
|
* sem_aggr.adb, err_vars.ads, sem_ch3.adb, sem_ch5.adb, sem_ch9.adb,
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- S p e c --
|
-- 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 --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
@ -631,8 +631,7 @@ package body Sem_Ch6 is
|
||||||
Analyze_And_Resolve (Expr, R_Type);
|
Analyze_And_Resolve (Expr, R_Type);
|
||||||
Check_Limited_Return (Expr);
|
Check_Limited_Return (Expr);
|
||||||
|
|
||||||
-- The only RETURN allowed in SPARK is as the last statement of the
|
-- RETURN only allowed in SPARK is as the last statement function
|
||||||
-- function.
|
|
||||||
|
|
||||||
if Nkind (Parent (N)) /= N_Handled_Sequence_Of_Statements
|
if Nkind (Parent (N)) /= N_Handled_Sequence_Of_Statements
|
||||||
and then
|
and then
|
||||||
|
|
|
@ -2442,7 +2442,6 @@ package body Sem_Ch8 is
|
||||||
|
|
||||||
if CW_Actual then
|
if CW_Actual then
|
||||||
null;
|
null;
|
||||||
|
|
||||||
else
|
else
|
||||||
Check_Mode_Conformant (New_S, Old_S);
|
Check_Mode_Conformant (New_S, Old_S);
|
||||||
end if;
|
end if;
|
||||||
|
|
|
@ -313,7 +313,8 @@ package Stand is
|
||||||
Boolean_Literals : array (Boolean) of Entity_Id;
|
Boolean_Literals : array (Boolean) of Entity_Id;
|
||||||
-- Entities for the two boolean literals, used by the expander
|
-- 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 :=
|
Standard_Type_Is_In_ALFA : array (S_Types) of Boolean :=
|
||||||
(S_Boolean => True,
|
(S_Boolean => True,
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue