diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-03-13 14:47:24 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-03-13 14:47:24 +0100 |
| commit | 57d08392f638bae0e0051a6ea55779b9da124d81 (patch) | |
| tree | 902c618eea139e0d1edce4e424c2c1d1dcedc6cb /gcc/ada/atree.h | |
| parent | db397e2e5a10965e953ce1801511c55fe8042295 (diff) | |
| download | gcc-57d08392f638bae0e0051a6ea55779b9da124d81.zip gcc-57d08392f638bae0e0051a6ea55779b9da124d81.tar.gz gcc-57d08392f638bae0e0051a6ea55779b9da124d81.tar.bz2 | |
[multiple changes]
2015-03-13 Robert Dewar <dewar@adacore.com>
* exp_unst.adb (Note_Uplevel_Reference): Eliminate duplicate
references.
(Actual_Ref): New function.
(AREC_String): Minor reformatting.
(Unnest_Subprogram): Use Actual_Ref.
* frontend.adb (Frontend): Turn off Unnest_Subprogram_Mode
before call to Instantiate_Bodies.
2015-03-13 Ed Schonberg <schonberg@adacore.com>
* freeze.adb (Freeze_Profile): If the return type of a function
being frozen is an untagged limited view and the function is
abstract, mark the type as frozen because there is no later
point at which the profile of the subprogram will be elaborated.
2015-03-13 Robert Dewar <dewar@adacore.com>
* einfo.adb, einfo.ads, atree.adb, atree.ads, atree.h: Add seventh
component to entities. Add new fields Field36-41 and Node36-41.
2015-03-13 Claire Dross <dross@adacore.com>
* inline.adb (Can_Be_Inlined_In_GNATprove_Mode): Rewrite after review.
2015-03-13 Robert Dewar <dewar@adacore.com>
* exp_util.adb (Is_Volatile_Reference): Compile time known
value is never considered to be a volatile reference.
2015-03-13 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb (Analyze_Object_Contract): Suppress "constant
cannot be volatile" for internally generated object (such as
FIRST and LAST constants).
2015-03-13 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Validate_Access_Subprogram_Instance): If a
convention is specified for the formal parameter, verify that
the actual has the same convention.
* sem_prag.adb (Set_Convention_From_Pragma): Allow convention
pragma to be set on a generic formal type.
* sem_util.adb (Set_Convention): Ignore within an instance,
as it has already been verified in the generic unit.
From-SVN: r221422
Diffstat (limited to 'gcc/ada/atree.h')
| -rw-r--r-- | gcc/ada/atree.h | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/atree.h b/gcc/ada/atree.h index dadfce0..093b366 100644 --- a/gcc/ada/atree.h +++ b/gcc/ada/atree.h @@ -448,6 +448,12 @@ extern Node_Id Current_Error_Node; #define Field33(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.field9) #define Field34(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.field10) #define Field35(N) (Nodes_Ptr[(N) - First_Node_Id + 5].V.EX.X.field11) +#define Field36(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field6) +#define Field37(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field7) +#define Field38(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field8) +#define Field39(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field9) +#define Field41(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.field10) +#define Field41(N) (Nodes_Ptr[(N) - First_Node_Id + 6].V.EX.X.field11) #define Node1(N) Field1 (N) #define Node2(N) Field2 (N) @@ -485,6 +491,11 @@ extern Node_Id Current_Error_Node; #define Node34(N) Field34 (N) #define Node35(N) Field35 (N) #define Node36(N) Field36 (N) +#define Node37(N) Field37 (N) +#define Node38(N) Field38 (N) +#define Node39(N) Field39 (N) +#define Node40(N) Field40 (N) +#define Node41(N) Field41 (N) #define List1(N) Field1 (N) #define List2(N) Field2 (N) |