diff options
| author | Javier Miranda <miranda@adacore.com> | 2009-04-09 09:35:24 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-09 11:35:24 +0200 |
| commit | b16d9747ffdb247f08d2647aafcebabc517b87ee (patch) | |
| tree | 3ab08bc8a192f550642f5ccee3b8b0402ffdf1cf /gcc/ada/atree.ads | |
| parent | 59262ebb3e73d3bca24a863fcad3c5673f416b44 (diff) | |
| download | gcc-b16d9747ffdb247f08d2647aafcebabc517b87ee.zip gcc-b16d9747ffdb247f08d2647aafcebabc517b87ee.tar.gz gcc-b16d9747ffdb247f08d2647aafcebabc517b87ee.tar.bz2 | |
exp_disp.adb (Export_DT): Addition of a new argument (Index)...
2009-04-09 Javier Miranda <miranda@adacore.com>
* exp_disp.adb (Export_DT): Addition of a new argument (Index); used to
retrieve from the Dispatch_Table_Wrappers list the external name.
Addition of documentation.
(Make_Secondary_DT): Addition of a new argument (Suffix_Index) that is
used to export secondary dispatch tables (in the previous version of
the frontend only primary dispatch tables were exported). Addition of
documentation.
(Import_DT): New subprogram (internal of Make_Tags). Used to import a
dispatch table of a given tagged type.
(Make_Tags): Modified to import secondary dispatch tables.
* sem_ch3.adb (Analyze_Object_Declaration): Code cleanup.
(Constant_Redeclaration): Code cleanup.
* einfo.ads (Dispatch_Table_Wrapper): Renamed to
Dispatch_Table_Wrappers. Update documentation.
* einfo.adb (Dispatch_Table_Wrapper, Set_Dispatch_Table_Wrapper):
Renamed to Dispatch_Table_Wrappers.
* sem_util.adb (Collect_Interface_Components): Improve handling of
private types.
* atree.ads (Elist26, Set_Elist26): New subprograms
* atree.adb (Elist26, Set_Elist26): New subprograms
From-SVN: r145811
Diffstat (limited to 'gcc/ada/atree.ads')
| -rw-r--r-- | gcc/ada/atree.ads | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index ab9fdb4..824e62c 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, 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- -- @@ -1060,6 +1060,9 @@ package Atree is function Elist25 (N : Node_Id) return Elist_Id; pragma Inline (Elist25); + function Elist26 (N : Node_Id) return Elist_Id; + pragma Inline (Elist26); + function Name1 (N : Node_Id) return Name_Id; pragma Inline (Name1); @@ -2090,6 +2093,9 @@ package Atree is procedure Set_Elist25 (N : Node_Id; Val : Elist_Id); pragma Inline (Set_Elist25); + procedure Set_Elist26 (N : Node_Id; Val : Elist_Id); + pragma Inline (Set_Elist26); + procedure Set_Name1 (N : Node_Id; Val : Name_Id); pragma Inline (Set_Name1); |