Lines Matching defs:Build_Inherit_CPP_Prims
270 function Build_Inherit_CPP_Prims (Typ : Entity_Id) return List_Id is subprogram
271 Loc : constant Source_Ptr := Sloc (Typ);
272 CPP_Nb_Prims : constant Nat := CPP_Num_Prims (Typ);
273 CPP_Table : array (1 .. CPP_Nb_Prims) of Boolean := (others => False);
274 CPP_Typ : constant Entity_Id := Enclosing_CPP_Parent (Typ);
275 Result : constant List_Id := New_List;
276 Parent_Typ : constant Entity_Id := Etype (Typ);
277 E : Entity_Id;
278 Elmt : Elmt_Id;
279 Parent_Tag : Entity_Id;
280 Prim : Entity_Id;
281 Prim_Pos : Nat;
282 Typ_Tag : Entity_Id;