Lines Matching refs:Parent_P

234       Parent_P : Node_Id := Parent (P);  variable
251          while Present (Parent_P)
252            and then Nkind (Parent_P) /= N_Component_Declaration
254             P := Parent_P;
255             Parent_P := Parent (P);
261          if Present (Parent_P) and then P = Expression (Parent_P) then
266          while Present (Parent_P)
267            and then Nkind (Parent_P) /= N_Subprogram_Body
269             P := Parent_P;
275             Parent_P := Parent (Parent_P);
283          if Present (Parent_P)
284            and then Present (Corresponding_Spec (Parent_P))
288                D_Fun  : constant Entity_Id := Corresponding_Spec  (Parent_P);