Lines Matching refs:Unit_Node
109 Unit_Node : Node_Id; variable
446 Unit_Node :=
448 Set_Specification (Unit_Node,
450 Set_Unit (Comp_Unit_Node, Unit_Node);
508 Unit_Node := Unit (Comp_Unit_Node);
512 if Nkind_In (Unit_Node, N_Subprogram_Body_Stub, N_Package_Body_Stub) then
519 if Unit_Node /= Error then
520 if Nkind (Unit_Node) = N_Subunit then
521 Unit_Node := Proper_Body (Unit_Node);
524 if Nkind (Unit_Node) in N_Generic_Declaration then
525 Unit_Node := Specification (Unit_Node);
528 if Nkind_In (Unit_Node, N_Package_Declaration,
533 Unit_Node := Specification (Unit_Node);
535 elsif Nkind (Unit_Node) = N_Subprogram_Renaming_Declaration then
538 ("(Ada 83) library unit renaming not allowed", Unit_Node);
542 if Nkind_In (Unit_Node, N_Task_Body,
549 Name_Node := Defining_Identifier (Unit_Node);
551 elsif Nkind_In (Unit_Node, N_Function_Instantiation,
557 Nkind_In (Unit_Node, N_Package_Body,
564 Name_Node := Defining_Unit_Name (Unit_Node);
566 elsif Nkind (Unit_Node) = N_Expression_Function then