1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
------------------------------------------------------------------------------
-- --
-- ASIS UTILITY LIBRARY COMPONENTS --
-- --
-- A S I S --
-- --
-- Copyright (C) 2004-2012, AdaCore --
-- --
-- Asis Utility Library (ASIS UL) is free software; you can redistribute it --
-- and/or modify it under terms of the GNU General Public License as --
-- published by the Free Software Foundation; either version 2, or (at your --
-- option) any later version. ASIS UL is distributed in the hope that it --
-- will be useful, but WITHOUT 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, --
-- --
-- ASIS UL is maintained by ACT Europe (http://www.act-europe.fr). --
-- --
------------------------------------------------------------------------------
project Common is
for Source_Dirs use ();
type Bld_Type is ("prod", "debug", "prod_strict", "prod_no_checks");
Bld : Bld_Type := external ("BLD", "prod");
type OS_Type is ("default_Unix", "powerpc_aix", "pa_hpux");
OS : OS_Type := external ("OPSYS", "default_Unix");
Ada_Strict_Switches :=
("-gnatf",
"-gnatwae",
"-gnatw.g", -- gnat standard warnings (which include -gnatw.u)
"-gnatw.U", -- turn off -gnatw.u; too many warnings
"-gnatyg");
Ada_Relaxed_Switches := ("-gnatf", "-gnatws");
Processors := External ("PROCESSORS", "1");
package Builder is
case bld is
when "prod" =>
for Default_Switches ("ada") use Ada_Relaxed_Switches & ("-O2");
when "prod_strict" =>
for Default_Switches ("ada") use Ada_Strict_Switches & ("-O2");
when "debug" =>
for Default_Switches ("ada")
use Ada_Strict_Switches & ("-O0", "-m", "-g", "-gnata", "-k");
when "prod_no_checks" =>
for Default_Switches ("ada")
use Ada_Strict_Switches & ("-O2", "-gnatp");
end case;
case OS is
when "powerpc_aix" =>
for Default_Switches ("ada") use
Builder'Default_Switches ("ada") & ("-mminimal-toc");
when "pa_hpux" =>
for Default_Switches ("ada") use
Builder'Default_Switches ("ada") & ("-mdisable-indexing");
when others =>
null;
end case;
for Default_Switches ("ada") use
Builder'Default_Switches ("ada") & ("-j" & Processors);
end Builder;
package Binder is
for Default_Switches ("ada") use ("-static");
end Binder;
package Ide is
for Vcs_Kind use "Subversion";
end Ide;
end Common;
|
