Searched refs:Next_Par (Results 1 – 6 of 6) sorted by relevance
119 Next_Par : String_Ptr; variable284 Next_Par := Get_Parameter (Next_Par_N);286 Diag_Buffer (Diag_Len + 1 .. Diag_Len + Next_Par'Length) :=287 Next_Par.all;289 Diag_Len := Diag_Len + Next_Par'Length;291 Free (Next_Par);
3546 Next_Par : Exemption_Parameters.Cursor := variable3558 while Exemption_Parameters.Has_Element (Next_Par) loop3564 (Exemption_Parameters.Element (Next_Par),3570 new String'(Exemption_Parameters.Element (Next_Par));3577 Next_Par := Exemption_Parameters.Next (Next_Par);3864 Next_Par : Cursor := First (Pars); variable3868 new String'(Exemption_Parameters.Element (Next_Par));3869 Next_Par := Next (Next_Par);
114 Next_Par : Entity_Id; variable123 Next_Par := Next (Entity_Node);126 Next_Par := Parameter_Type (Next_Par);129 Next_Par := Get_Type (Next_Par);133 if Entity_Node = Next_Par then
106 Next_Par : Node_Id; variable137 Next_Par := First_Non_Pragma (Gen_Form_Pars);139 while Present (Next_Par) loop142 if Nkind (Next_Par) in N_Formal_Subprogram_Declaration and then143 Nkind (Specification (Next_Par)) = N_Function_Specification145 Result_Node := Defining_Unit_Name (Specification (Next_Par));154 Next_Par := Next_Non_Pragma (Next_Par);
27 int Next_Par(char *s,int pos);
506 else posend = Next_Par(tree,posend); in Sub_Trees()542 int Next_Par(char *s, int pos) in Next_Par() function550 if(*(s+curr) == '(') curr=Next_Par(s,curr); in Next_Par()