diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-29 15:01:21 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-29 15:01:21 +0100 |
| commit | 477cfc5b60785205119bc2ab8b97d309e0a422f4 (patch) | |
| tree | c97baf59573b2e4562047b821947b9c984abb702 /gcc/ada/atree.h | |
| parent | 656e11a924eb4555d6c5650d6fa8d5ae2049cc44 (diff) | |
| download | gcc-477cfc5b60785205119bc2ab8b97d309e0a422f4.zip gcc-477cfc5b60785205119bc2ab8b97d309e0a422f4.tar.gz gcc-477cfc5b60785205119bc2ab8b97d309e0a422f4.tar.bz2 | |
[multiple changes]
2013-01-29 Robert Dewar <dewar@adacore.com>
* atree.ads, atree.adb (Node30): New function.
(Set_Node30): New procedure.
(Num_Extension_Nodes): Change to 5 (activate new fields/flags).
* atree.h: Add macros for Field30 and Node30.
* einfo.ads, einfo.adb: Move some fields to avoid duplexing.
* treepr.adb (Print_Entity_Information): Print fields 30-35.
2013-01-29 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Analyze_Pragma, case Interface): Consider to
be a violation of No_Obsolescent_Features even in Ada 95. Also
generates a warning in -gnatwj mode.
(Analyze_Pragma, case Interface_Name): Generates a warning in -gnatwj
mode.
* gnat_ugn.texi: Additional documentation on -gnatwj and pragma
Interface[_Name].
2013-01-29 Vincent Celier <celier@adacore.com>
* snames.ads-tmpl: Add new standard name Trailing_Switches.
2013-01-29 Ed Schonberg <schonberg@adacore.com>
* sem_disp.adb (Check_Controlling_Type): If a designated type T
of an anonymous access type is a limited view of a tagged type,
it can be a controlling type only if the subprogram is in the
same scope as T.
2013-01-29 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Use the project where the config pragmas file is
declared to get its path.
2013-01-29 Vincent Celier <celier@adacore.com>
* prj-attr.adb: New attribute Linker'Trailing_Switches.
From-SVN: r195535
Diffstat (limited to 'gcc/ada/atree.h')
| -rw-r--r-- | gcc/ada/atree.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/atree.h b/gcc/ada/atree.h index 822b30d..7d88c4d 100644 --- a/gcc/ada/atree.h +++ b/gcc/ada/atree.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2011, Free Software Foundation, Inc. * + * Copyright (C) 1992-2012, 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- * @@ -387,6 +387,7 @@ extern Node_Id Current_Error_Node; #define Field27(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field9) #define Field28(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field10) #define Field29(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.field11) +#define Field30(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field6) #define Node1(N) Field1 (N) #define Node2(N) Field2 (N) @@ -417,6 +418,7 @@ extern Node_Id Current_Error_Node; #define Node27(N) Field27 (N) #define Node28(N) Field28 (N) #define Node29(N) Field29 (N) +#define Node30(N) Field30 (N) #define List1(N) Field1 (N) #define List2(N) Field2 (N) |