--  vim: ft=ada

function P_Internal_Referenced_Unit
  (Node           : access Bare_Name_Type'Class;
   Kind           : Unit_Kind;
   Load_If_Needed : Boolean) return Analysis_Unit
is
begin
   return Libadalang.Unit_Files.Fetch_Unit
     (Node.Unit.Context, Bare_Name (Node), Kind, Load_If_Needed);
exception
   when Property_Error =>
      return No_Analysis_Unit;
end P_Internal_Referenced_Unit;
