[multiple changes]

[gcc.git] / gcc / ada / sem_disp.adb

diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb
index 52eda74da9b72e09e572f2c3688fe3f7646bad39..1cbaef354b0bbb8c6d3d092f048a712c85aeb71f 100644 (file)
--- a/gcc/ada/sem_disp.adb
+++ b/gcc/ada/sem_disp.adb
@@ -2243,6 +2243,9 @@ package body Sem_Disp is
    -- Is_Overriding_Subprogram --
    ------------------------------
 
+   --  Seems inefficient, build a whole list of subprograms to see if it
+   --  is non-empty???
+
    function Is_Overriding_Subprogram (E : Entity_Id) return Boolean is
       Inherited : constant Subprogram_List := Inherited_Subprograms (E);
    begin