Lines Matching refs:Uname_Actual
406 Uname_Actual : Unit_Name_Type; variable
459 Uname_Actual :=
515 Uname_Actual := New_Child (Load_Name, Unit_Name (Unump));
521 Uname_Actual := Load_Name;
524 Fname := Get_File_Name (Uname_Actual, Subunit);
543 if Uname_Actual /= Load_Name then
545 Write_Unit_Name (Uname_Actual);
612 Unum := Unit_Names.Get (Uname_Actual);
629 if Unum > Units.Last and then Get_Unit_Index (Uname_Actual) = 0 then
643 Error_Msg_Unit_1 := Uname_Actual;
648 Error_Msg_Unit_1 := Uname_Actual;
731 Init_Unit_Name (Unum, Uname_Actual);
742 Expected_Unit => Uname_Actual,
764 Unit_Name => Uname_Actual,
775 Multiple_Unit_Index := Get_Unit_Index (Uname_Actual);
877 Error_Msg_Unit_1 := Uname_Actual;