Lines Matching refs:Afile

222       Afile  : File_Name_Type;  variable
233             Afile := Withs.Table (W).Afile;
238             if Afile /= No_File
239               and then Get_Name_Table_Int (Afile) = 0
241                Text := Read_Library_Info (Afile);
251                      Error_Msg_File_1 := Afile;
254                      Set_Name_Table_Int (Afile, Int (No_Unit_Id));
263                       (F         => Afile,
275                      Set_Name_Table_Int (Afile, Int (No_Unit_Id));
286                      Set_Name_Table_Int (Afile, Int (No_Unit_Id));
301                      Interfaces.Set (Afile, True);
313             elsif Interface_Library_Unit and then Interfaces.Get (Afile) then
373                      Source.Table (S).Stamp_File := ALIs.Table (A).Afile;
389                   Source.Table (S).Stamp_File := ALIs.Table (A).Afile;
446                         Source.Table (S).Stamp_File := ALIs.Table (A).Afile;