PR target/34091

[pf3gnuchains/gcc-fork.git] / gcc / ada / prj-makr.ads

diff --git a/gcc/ada/prj-makr.ads b/gcc/ada/prj-makr.ads
index 7c0b09d..74b90f6 100644 (file)
--- a/gcc/ada/prj-makr.ads
+++ b/gcc/ada/prj-makr.ads
@@ -6,32 +6,28 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                                                                          --
---             Copyright (C) 2001-2002 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- --
--- ware  Foundation;  either version 2,  or (at your option) any later ver- --
+-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 -- for  more details.  You should have  received  a copy of the GNU General --
--- Public License  distributed with GNAT;  see file COPYING.  If not, write --
--- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
--- MA 02111-1307, USA.                                                      --
+-- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
+-- http://www.gnu.org/licenses for a complete copy of the license.          --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  Support for procedure Gnatname.
+--  Support for procedure Gnatname
 
 --  For arbitrary naming schemes, create or update a project file,
 --  or create a configuration pragmas file.
 
-with GNAT.OS_Lib; use GNAT.OS_Lib;
-
 package Prj.Makr is
 
    procedure Make
@@ -40,6 +36,8 @@ package Prj.Makr is
       Directories       : Argument_List;
       Name_Patterns     : Argument_List;
       Excluded_Patterns : Argument_List;
+      Foreign_Patterns  : Argument_List;
+      Preproc_Switches  : Argument_List;
       Very_Verbose      : Boolean);
    --  Create a project file or a configuration pragmas file
    --
@@ -60,5 +58,11 @@ package Prj.Makr is
    --  all the specs and bodies for the project.
    --  A file containing the source file names is automatically
    --  generated and used as the Source_File_List for the project file.
+   --  It includes all sources that follow the Foreign_Patterns (except those
+   --  that follow Excluded_Patterns).
+
+   --  Preproc_switches is a list of optional preprocessor switches -gnatep=
+   --  and -gnateD that are used when invoking the compiler to find the
+   --  unit name and kind.
 
 end Prj.Makr;