mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-16 23:31:05 +08:00
Code Issues Packages Projects Releases Wiki Activity

sem_ch3.adb (Derive_Progenitor_Subprograms): Add documentation.

Browse Source 
2008-05-28  Javier Miranda  <miranda@adacore.com>

	* sem_ch3.adb (Derive_Progenitor_Subprograms): Add documentation.

From-SVN: r136104
This commit is contained in:
Javier Miranda 2008-05-28 17:33:54 +02:00 committed by Arnaud Charlet
parent 71292a0540
commit 9800ef594c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/sem_ch3.adb
View File

@ -11398,6 +11398,13 @@ package body Sem_Ch3 is
while Present (Prim_Elmt) loop
Iface_Subp := Node (Prim_Elmt);
-- Exclude derivation of predefined primitives except those
-- that come from source. Required to catch declarations of
-- equality operators of interfaces. For example:
-- type Iface is interface;
-- function "=" (Left, Right : Iface) return Boolean;
if not Is_Predefined_Dispatching_Operation (Iface_Subp)
or else Comes_From_Source (Iface_Subp)
then