diff options
| author | Thomas Quinot <quinot@adacore.com> | 2006-10-31 18:55:55 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 18:55:55 +0100 |
| commit | 92869a7b6b8dc3ad4c0e0a299ec36906c2090c8c (patch) | |
| tree | 780930857e5be48b62644253dd43da21a95fc277 /gcc/ada/exp_dist.ads | |
| parent | 108e13eb74bd925fba2a6e2e692bd1de1342fd3c (diff) | |
| download | gcc-92869a7b6b8dc3ad4c0e0a299ec36906c2090c8c.tar.gz | |
exp_dist.adb (Get_Subprogram_Ids): This function will no more assign subprogram Ids, even if they are not yet assigned.
2006-10-31 Thomas Quinot <quinot@adacore.com>
Pablo Oliveira <oliveira@adacore.com>
* exp_dist.adb (Get_Subprogram_Ids): This function will no more assign
subprogram Ids, even if they are not yet assigned.
(Build_Subprogram_Id): It is now this function that will take care of
calling Assign_Subprogram_Ids if necessary.
(Add_Receiving_Stubs_To_Declarations): Checking the subprograms ids
should be done only once they are assigned.
(Build_From_Any_Function, case of tagged types): Add missing call to
Allocate_Buffer.
(Corresponding_Stub_Type): New subprogram. Returns the associated stub
type for an RACW type.
(Add_RACW_Features): When processing an RACW declaration for which the
designated type is already frozen, enforce E.2.2(14) rules immediately.
(GARLIC_Support.Build_Subprogram_Receiving_Stubs): Do not perform any
special reordering of controlling formals.
* exp_dist.ads (Corresponding_Stub_Type): New subprogram. Returns the
associated stub type for an RACW type.
From-SVN: r118264
Diffstat (limited to 'gcc/ada/exp_dist.ads')
| -rw-r--r-- | gcc/ada/exp_dist.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/exp_dist.ads b/gcc/ada/exp_dist.ads index 43e3a24c991..b501bcc6b98 100644 --- a/gcc/ada/exp_dist.ads +++ b/gcc/ada/exp_dist.ads @@ -95,6 +95,9 @@ package Exp_Dist is -- access to Stub_Type. If New_Name is given, then it will be used as -- the name for the newly created spec. + function Corresponding_Stub_Type (RACW_Type : Entity_Id) return Entity_Id; + -- Return the stub type associated with the given RACW type + function Underlying_RACW_Type (RAS_Typ : Entity_Id) return Entity_Id; -- Given a remote access-to-subprogram type or its equivalent |