diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-05 09:37:44 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-05 09:37:44 +0000 |
| commit | ee52a7de2129a87bc567c171b4eaed9242f5da49 (patch) | |
| tree | 497f5b4a920a207a3da99a885ebca648bd450e5b /gcc/ada/sem_disp.ads | |
| parent | b7ca2e472cb96dc6a8b055d21b0d16c885b1b251 (diff) | |
| download | gcc-ee52a7de2129a87bc567c171b4eaed9242f5da49.tar.gz | |
2010-10-05 Emmanuel Briot <briot@adacore.com>
* prj-env.adb, prj-env.ads (Set_Path): New subprogram.
(Deep_Copy): Removed, not used.
2010-10-05 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Add_Internal_Interface_Entities): Code reorganization:
move code that searches in the list of primitives of a tagged type for
the entity that will be overridden by user-defined routines.
* sem_disp.adb (Find_Primitive_Covering_Interface): Move here code
previously located in routine Add_Internal_Interface_Entities.
* sem_disp.ads (Find_Primitive_Covering_Interface): Update documentation
* sem_ch6.adb (New_Overloaded_Entity): Add missing check on
availability of attribute Alias.
2010-10-05 Ed Falis <falis@adacore.com>
* s-taprop-vxworks.adb, s-osinte-vxworks.adb, s-osinte-vxworks.ads,
s-vxwext.ads, s-vxwext-kernel.ads, s-vxwext-rtp.adb, s-vxwext-rtp.ads:
Move definition of intContext to System.OS_Interface.
Add necessary variants in System.VxWorks.Extensions.
2010-10-05 Doug Rupp <rupp@adacore.com>
* s-asthan-vms-alpha.adb: On VMS, a task using
pragma AST_Entry exhibits a memory leak when the task terminates
because the vector allocated for the AST interface is not freed. Fixed
by making the vector a controlled type.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164972 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_disp.ads')
| -rw-r--r-- | gcc/ada/sem_disp.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/sem_disp.ads b/gcc/ada/sem_disp.ads index 1888a6854ab..428531d0338 100644 --- a/gcc/ada/sem_disp.ads +++ b/gcc/ada/sem_disp.ads @@ -82,10 +82,12 @@ package Sem_Disp is function Find_Primitive_Covering_Interface (Tagged_Type : Entity_Id; Iface_Prim : Entity_Id) return Entity_Id; - -- Search in the homonym chain for the primitive of Tagged_Type that - -- covers Iface_Prim. The homonym chain traversal is required to catch - -- primitives associated with the partial view of private types when - -- processing the corresponding full view. + -- Search in the homonym chain for the primitive of Tagged_Type that covers + -- Iface_Prim. The homonym chain traversal is required to catch primitives + -- associated with the partial view of private types when processing the + -- corresponding full view. If the entity is not found then search for it + -- in the list of primitives of Tagged_Type. This latter search is needed + -- when the interface primitive is covered by a private subprogram. function Is_Dynamically_Tagged (N : Node_Id) return Boolean; -- Used to determine whether a call is dispatching, i.e. if is an |