OSDN Git Service

* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Procedure>: Set default
[pf3gnuchains/gcc-fork.git] / gcc / ada / mlib-prj.ads
1 ------------------------------------------------------------------------------
2 --                                                                          --
3 --                         GNAT COMPILER COMPONENTS                         --
4 --                                                                          --
5 --                            M L I B . P R J                               --
6 --                                                                          --
7 --                                 S p e c                                  --
8 --                                                                          --
9 --                     Copyright (C) 2001-2007, AdaCore                     --
10 --                                                                          --
11 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
12 -- terms of the  GNU General Public License as published  by the Free Soft- --
13 -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
14 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
17 -- for  more details.  You should have  received  a copy of the GNU General --
18 -- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
19 -- http://www.gnu.org/licenses for a complete copy of the license.          --
20 --                                                                          --
21 -- GNAT was originally developed  by the GNAT team at  New York University. --
22 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
23 --                                                                          --
24 ------------------------------------------------------------------------------
25
26 --  This package builds a library for a library project file
27
28 with Prj; use Prj;
29
30 package MLib.Prj is
31
32    procedure Build_Library
33      (For_Project   : Project_Id;
34       In_Tree       : Project_Tree_Ref;
35       Gnatbind      : String;
36       Gnatbind_Path : String_Access;
37       Gcc           : String;
38       Gcc_Path      : String_Access;
39       Bind          : Boolean := True;
40       Link          : Boolean := True);
41    --  Build the library of library project For_Project.
42    --  Fails if For_Project is not a library project file.
43    --  Gnatbind, Gnatbind_Path, Gcc, Gcc_Path are used for standalone
44    --  libraries, to call the binder and to compile the binder generated
45    --  files. If Bind is False the binding of a stand-alone library is skipped.
46    --  If Link is False, the library is not linked/built.
47
48    procedure Check_Library
49      (For_Project : Project_Id;
50       In_Tree     : Project_Tree_Ref);
51    --  Check if the library of a library project needs to be rebuilt,
52    --  because its time-stamp is earlier than the time stamp of one of its
53    --  object files.
54
55 end MLib.Prj;