Lines Matching refs:Comp_Or_Discr

6675             Comp_Or_Discr : Entity_Id;  variable
6682             Comp_Or_Discr := First_Entity (P_Type);
6683             while Present (Comp_Or_Discr) loop
6684                if Chars (Comp_Or_Discr) = Comp_Name then
6689                   Set_Entity (Comp, Comp_Or_Discr);
6690                   Set_Etype  (Comp, Etype (Comp_Or_Discr));
6694                Comp_Or_Discr := Next_Entity (Comp_Or_Discr);
6699             if Present (Comp_Or_Discr) then
6700                if Ekind (Comp_Or_Discr) = E_Discriminant then
6704                else pragma Assert (Ekind (Comp_Or_Discr) = E_Component);
6705                   if Contains (Comps, Comp_Or_Discr) then
6711                      Append_New_Elmt (Comp_Or_Discr, Comps);