diff options
author | Javier Miranda <miranda@adacore.com> | 2005-03-18 12:47:35 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-03-18 12:47:35 +0100 |
commit | 5fa28bbb0316e6258088bc985b63fdac7d077928 (patch) | |
tree | 5a415fa23f3086cbbabfea3f4f042a53fc5f2ab6 /gcc/ada/tbuild.ads | |
parent | 2d072788a119af46ac48e6465ef6fd4fff11022e (diff) | |
download | gcc-5fa28bbb0316e6258088bc985b63fdac7d077928.zip gcc-5fa28bbb0316e6258088bc985b63fdac7d077928.tar.gz gcc-5fa28bbb0316e6258088bc985b63fdac7d077928.tar.bz2 |
a-tags.ads, a-tags.adb (Get_Expanded_Name): Removed.
2005-03-17 Javier Miranda <miranda@adacore.com>
* a-tags.ads, a-tags.adb (Get_Expanded_Name): Removed.
(Get_Inheritance_Depth): Removed.
(Set_Inheritance_Depth): Removed.
* rtsfind.ads, exp_disp.ads, exp_disp.adb: Remove support to call the
subprogram Get_Expanded_Name because it is not referenced by the
frontend.
* i-cpp.ads, i-cpp.adb (CPP_Get_Expanded_Name): Removed.
(CPP_Get_Inheritance_Depth): Removed.
(CPP_Set_Inheritance_Depth): Removed.
* tbuild.ads, tbuild.adb (Make_DT_Component): Removed.
From-SVN: r96662
Diffstat (limited to 'gcc/ada/tbuild.ads')
-rw-r--r-- | gcc/ada/tbuild.ads | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/gcc/ada/tbuild.ads b/gcc/ada/tbuild.ads index 740ad78..3cd0fcc 100644 --- a/gcc/ada/tbuild.ads +++ b/gcc/ada/tbuild.ads @@ -69,20 +69,6 @@ package Tbuild is -- Must_Be_Byte_Aligned is set in the attribute reference node. The -- Attribute_Name must be Name_Address or Name_Unrestricted_Access. - function Make_DT_Component - (Loc : Source_Ptr; - Typ : Entity_Id; - N : Positive) return Node_Id; - -- Gives a reference to the Nth component of the Dispatch Table of - -- a given Tagged Type. - -- - -- N = 1 --> Inheritance_Depth - -- N = 2 --> Tags (array of ancestors) - -- N = 3, 4 --> predefined primitive - -- function _Size (X : Typ) return Long_Long_Integer; - -- function _Equality (X : Typ; Y : Typ'Class) return Boolean; - -- N >= 5 --> User-Defined Primitive Operations - function Make_DT_Access (Loc : Source_Ptr; Rec : Node_Id; Typ : Entity_Id) return Node_Id; -- Create an access to the Dispatch Table by using the Tag field |