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
|
project Common is
for Source_Dirs use ();
type Bld_Type is ("prod", "debug");
Bld : Bld_Type := external ("BLD", "debug");
type OS_Type is ("default_Unix", "powerpc_aix", "pa_hpux");
OS : OS_Type := external ("OPSYS", "default_Unix");
Ada_Switches := ("-gnatf", "-gnatwue", "-gnaty");
package Builder is
case bld is
when "prod" =>
for Default_Switches ("ada") use Ada_Switches & ("-O2");
when "debug" =>
for Default_Switches ("ada") use Ada_Switches & ("-g");
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;
end Builder;
package Ide is
for Vcs_Kind use "CVS";
end Ide;
end Common;
|
