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
|
project Sdc is
for Languages use ("ada");
for Source_Dirs use ("common", "struct");
for Main use ("sdc.adb");
type Build_Type is
("PRODUCTION", "DEBUG");
Build : Build_Type := external ("Build", "DEBUG");
for Object_Dir use "obj";
package Compiler is
case Build is
when "DEBUG" =>
for Switches ("ada") use ("-gnatwe", "-gnaty", "-gnato", "-g");
for Switches ("screen_output.adb") use ("-gnatwe", "-gnaty", "-g");
when "PRODUCTION" =>
for Switches ("ada") use ("-O2", "-gnatn", "-gnatwe", "-gnaty", "-gnatp");
end case;
end Compiler;
package Builder is
case Build is
when "DEBUG" =>
for Switches ("ada") use ("-g");
when "PRODUCTION" =>
for Switches ("ada") use ();
end case;
end Builder;
package Binder is
for Switches ("ada") use ("-static");
end Binder;
end Sdc;
|
