diff options
| author | Javier Miranda <miranda@adacore.com> | 2008-05-28 17:34:05 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-28 17:34:05 +0200 |
| commit | 8aa15e3bf0f1e38966c421f536bf9f6e95b32776 (patch) | |
| tree | af05cd7d74103d2d9a22544ec77a8f7f862f0ec2 /gcc/ada/sem_util.ads | |
| parent | 9800ef594c9e73b5bd04ba27924384cf4d73a127 (diff) | |
| download | gcc-8aa15e3bf0f1e38966c421f536bf9f6e95b32776.tar.gz | |
sem_util.ads (Find_Overridden_Synchronized_Primitive): Removed.
2008-05-28 Javier Miranda <miranda@adacore.com>
* sem_util.ads (Find_Overridden_Synchronized_Primitive): Removed.
* sem_util.adb (Find_Overridden_Synchronized_Primitive): Removed.
* sem_ch6.adb (Check_Synchronized_Overriding): Remove one formal.
Add code that was previously located in
Find_Overridden_Synchronized_Primitive because it is only used here.
From-SVN: r136105
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index aeedc7d0a81..bbd4c864a3e 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -327,18 +327,6 @@ package Sem_Util is -- not an address representation clause, or if it is not possible to -- determine that the address is of this form, then Empty is returned. - function Find_Overridden_Synchronized_Primitive - (Def_Id : Entity_Id; - First_Hom : Entity_Id; - Ifaces_List : Elist_Id; - In_Scope : Boolean) return Entity_Id; - -- Determine whether entry or subprogram Def_Id overrides a primitive - -- operation that belongs to one of the interfaces in Ifaces_List. A - -- specific homonym chain can be specified by setting First_Hom. Flag - -- In_Scope is used to designate whether the entry or subprogram was - -- declared inside the scope of the synchronized type or after. Return - -- the overridden entity or Empty. - function Find_Parameter_Type (Param : Node_Id) return Entity_Id; -- Return the type of formal parameter Param as determined by its -- specification. |