diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-29 16:13:49 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-29 16:13:49 +0000 |
| commit | 64cf6b82de85eb31d1caad9e4b4f3461ac02d4fb (patch) | |
| tree | e7c14b871e640a120c4aa0c9906cbbc68c1ad47d /gcc/ada/i-cpp.ads | |
| parent | 23c6b287092131a103aabcd6a6c2baa435aa22d8 (diff) | |
| download | gcc-64cf6b82de85eb31d1caad9e4b4f3461ac02d4fb.tar.gz | |
2005-03-29 Javier Miranda <miranda@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/i-cpp.ads')
| -rw-r--r-- | gcc/ada/i-cpp.ads | 12 |
1 files changed, 3 insertions, 9 deletions
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); |