Skip to content

R
riscv-gcc-1
Commit 8aa15e3b by Javier Miranda Committed by Arnaud Charlet
Options

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
parent 9800ef59
Showing with 0 additions and 12 deletions
gcc/ada/sem_util.ads
...@@ -327,18 +327,6 @@ package Sem_Util is ...@@ -327,18 +327,6 @@ package Sem_Util is
-- not an address representation clause, or if it is not possible to -- not an address representation clause, or if it is not possible to
-- determine that the address is of this form, then Empty is returned. -- 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; function Find_Parameter_Type (Param : Node_Id) return Entity_Id;
-- Return the type of formal parameter Param as determined by its -- Return the type of formal parameter Param as determined by its
-- specification. -- specification.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment