Lines Matching refs:Uname_Actual

404       Uname_Actual : Unit_Name_Type;  variable
457             Uname_Actual :=
513             Uname_Actual := New_Child (Load_Name, Unit_Name (Unump));
519          Uname_Actual := Load_Name;
522       Fname     := Get_File_Name (Uname_Actual, Subunit);
541          if Uname_Actual /= Load_Name then
543             Write_Unit_Name (Uname_Actual);
612          exit when Uname_Actual = Units.Table (Unum).Unit_Name;
628       if Unum > Units.Last and then Get_Unit_Index (Uname_Actual) = 0 then
642                      Error_Msg_Unit_1 := Uname_Actual;
647                      Error_Msg_Unit_1 := Uname_Actual;
730          Units.Table (Unum).Unit_Name := Uname_Actual;
741                Expected_Unit          => Uname_Actual,
763                Unit_Name              => Uname_Actual,
774                Multiple_Unit_Index := Get_Unit_Index (Uname_Actual);
876                   Error_Msg_Unit_1 := Uname_Actual;