--
--  Copyright (C) 2019-2024, AdaCore
--
--  SPDX-License-Identifier: Apache-2.0 WITH LLVM-Exception
--

function GPR2.Project_Parser.Create
  (Name      : Name_Type;
   File      : GPR2.Path_Name.Object;
   Qualifier : Project_Kind) return Object is
begin
   return Object'(Name      => To_Unbounded_String (String (Name)),
                  File      => File,
                  Qualifier => Qualifier,
                  others    => <>);
end GPR2.Project_Parser.Create;
