bcheck.adb, [...]: Move Name_Id, File_Name_Type and Unit_Name_Type from package Types...

[gcc.git] / gcc / ada / prj-util.ads

diff --git a/gcc/ada/prj-util.ads b/gcc/ada/prj-util.ads
index 5d77678af892ee5b6fbdab1a58f8ab39e506001c..4163f98b2c88404b83d8ef868956f6d014940ddf 100644 (file)
--- a/gcc/ada/prj-util.ads
+++ b/gcc/ada/prj-util.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2001-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 2001-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,9 +31,9 @@ package Prj.Util is
    function Executable_Of
      (Project  : Project_Id;
       In_Tree  : Project_Tree_Ref;
-      Main     : Name_Id;
+      Main     : File_Name_Type;
       Index    : Int;
-      Ada_Main : Boolean := True) return Name_Id;
+      Ada_Main : Boolean := True) return File_Name_Type;
    --  Return the value of the attribute Builder'Executable for file Main in
    --  the project Project, if it exists. If there is no attribute Executable
    --  for Main, remove the suffix from Main; then, if the attribute
@@ -62,9 +62,8 @@ package Prj.Util is
       Src_Index : Int := 0;
       In_Array  : Array_Element_Id;
       In_Tree   : Project_Tree_Ref) return Variable_Value;
-   --  Get a string array component (single String or String list).
-   --  Returns Nil_Variable_Value if there is no component Index
-   --  or if In_Array is null.
+   --  Get a string array component (single String or String list). Returns
+   --  Nil_Variable_Value if no component Index or if In_Array is null.
    --
    --  Depending on the attribute (only attributes may be associative arrays)
    --  the index may or may not be case sensitive. If the index is not case