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.ads | |
| 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.ads')
| -rw-r--r-- | gcc/ada/atree.ads | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 2b616bd..fc60293 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -69,12 +69,13 @@ package Atree is -- Size of Entities -- ---------------------- - -- Currently entities are composed of 5 sequentially allocated 32-byte + -- Currently entities are composed of 6 sequentially allocated 32-byte -- nodes, considered as a single record. The following definition gives -- the number of extension nodes. - Num_Extension_Nodes : Int := 4; - -- This value is increased by one if debug flag -gnatd.N is set + Num_Extension_Nodes : Int := 5; + -- This value is increased by one if debug flag -gnatd.N is set. This is + -- for testing performance impact of adding a new extension node. ---------------------------------------- -- Definitions of Fields in Tree Node -- @@ -1167,6 +1168,9 @@ package Atree is function Node29 (N : Node_Id) return Node_Id; pragma Inline (Node29); + function Node30 (N : Node_Id) return Node_Id; + pragma Inline (Node30); + function List1 (N : Node_Id) return List_Id; pragma Inline (List1); @@ -2446,6 +2450,9 @@ package Atree is procedure Set_Node29 (N : Node_Id; Val : Node_Id); pragma Inline (Set_Node29); + procedure Set_Node30 (N : Node_Id; Val : Node_Id); + pragma Inline (Set_Node30); + procedure Set_List1 (N : Node_Id; Val : List_Id); pragma Inline (Set_List1); |