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/i-cpp.adb | |
| 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/i-cpp.adb')
| -rw-r--r-- | gcc/ada/i-cpp.adb | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/gcc/ada/i-cpp.adb b/gcc/ada/i-cpp.adb index 7eaa219..248d09e 100644 --- a/gcc/ada/i-cpp.adb +++ b/gcc/ada/i-cpp.adb @@ -146,15 +146,6 @@ package body Interfaces.CPP is return Pos >= 0 and then TSD (Obj_Tag).Ancestor_Tags (Pos) = Typ_Tag; end CPP_CW_Membership; - --------------------------- - -- CPP_Get_Expanded_Name -- - --------------------------- - - function CPP_Get_Expanded_Name (T : Vtable_Ptr) return Address is - begin - return To_Address (TSD (T).Expanded_Name); - end CPP_Get_Expanded_Name; - -------------------------- -- CPP_Get_External_Tag -- -------------------------- @@ -164,15 +155,6 @@ package body Interfaces.CPP is return To_Address (TSD (T).External_Tag); end CPP_Get_External_Tag; - ------------------------------- - -- CPP_Get_Inheritance_Depth -- - ------------------------------- - - function CPP_Get_Inheritance_Depth (T : Vtable_Ptr) return Natural is - begin - return TSD (T).Idepth; - end CPP_Get_Inheritance_Depth; - ------------------------- -- CPP_Get_Prim_Op_Address -- ------------------------- @@ -277,18 +259,6 @@ package body Interfaces.CPP is TSD (T).External_Tag := To_Cstring_Ptr (Value); end CPP_Set_External_Tag; - ------------------------------- - -- CPP_Set_Inheritance_Depth -- - ------------------------------- - - procedure CPP_Set_Inheritance_Depth - (T : Vtable_Ptr; - Value : Natural) - is - begin - TSD (T).Idepth := Value; - end CPP_Set_Inheritance_Depth; - ----------------------------- -- CPP_Set_Prim_Op_Address -- ----------------------------- |