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
|
project Common is
for Source_Dirs use ();
type Bld_Type is ("prod", "debug", "prod_no_checks");
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", "-gnatwae", "-gnatyg", "-gnatyS");
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", "-gnata");
when "prod_no_checks" =>
for Default_Switches ("ada") use Ada_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;
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;
|