From 64cf6b82de85eb31d1caad9e4b4f3461ac02d4fb Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 29 Mar 2005 16:13:49 +0000 Subject: 2005-03-29 Javier Miranda * a-tags.ads, a-tags.adb (Get_TSD): Subprogram removed. (Inherit_DT): The first formal has been redefined as a Tag. This allows us the removal of the subprogram Get_TSD. (TSD): Replace the call to Get_TSD by the actual code. * exp_disp.ads, exp_disp.adb: Remove support to call Get_TSD. (Make_DT): Upgrade the call to Inherit_TSD according to the new interface: the first formal is now a Tag. * i-cpp.ads, i-cpp.adb (CPP_Inherit_DT): The first formal has been redefined as a Tag. This change allows us to remove the subprogram Get_TSD. (CPP_Get_TSD): Subprogram removed. (TSD): Replace the call to CPP_Get_TSD by the actual code. * rtsfind.ads: Remove support to call the run-time subprogram Get_TSD git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97168 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/i-cpp.ads | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'gcc/ada/i-cpp.ads') diff --git a/gcc/ada/i-cpp.ads b/gcc/ada/i-cpp.ads index 62d57835b32..99922cf56ee 100644 --- a/gcc/ada/i-cpp.ads +++ b/gcc/ada/i-cpp.ads @@ -88,10 +88,6 @@ private -- Given a pointer T to a dispatch Table, stores the address of the -- record containing the Type Specific Data generated by GNAT - function CPP_Get_TSD (T : Vtable_Ptr) return S.Address; - -- Given a pointer T to a dispatch Table, retreives the address of the - -- record containing the Type Specific Data generated by GNAT - CPP_DT_Prologue_Size : constant SSE.Storage_Count := SSE.Storage_Count (2 * (Standard'Address_Size / S.Storage_Unit)); @@ -126,7 +122,7 @@ private -- inherited (Entry_Count). procedure CPP_Inherit_TSD - (Old_TSD : S.Address; + (Old_Tag : Vtable_Ptr; New_Tag : Vtable_Ptr); -- Entry point used to initialize the TSD of a type knowing the -- TSD of the direct ancestor. @@ -172,9 +168,8 @@ private -- (used for virtual function calls) function TSD (T : Vtable_Ptr) return Type_Specific_Data_Ptr; - -- This function is conceptually equivalent to Get_TSD, but - -- returning a Type_Specific_Data_Ptr type (rather than an Address) - -- simplifies the implementation of the other subprograms. + -- Given a pointer T to a dispatch Table, retreives the address of the + -- record containing the Type Specific Data generated by GNAT type Addr_Ptr is access System.Address; @@ -190,7 +185,6 @@ private pragma Inline (CPP_Set_Prim_Op_Address); pragma Inline (CPP_Get_Prim_Op_Address); pragma Inline (CPP_Set_TSD); - pragma Inline (CPP_Get_TSD); pragma Inline (CPP_Inherit_DT); pragma Inline (CPP_CW_Membership); pragma Inline (CPP_Set_External_Tag); -- cgit v1.2.1