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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
project ARM_Info is
for Source_Dirs use
("../progs");
for Main use ("arm_form.ada");
for Object_Dir use "objects";
for Exec_Dir use ".";
package Naming is
for Spec ("ARM_Contents") use "arm_cont.ads";
for Body ("ARM_Contents") use "arm_cont.adb";
for Spec ("ARM_Corr") use "arm_corr.ads";
for Body ("ARM_Corr") use "arm_corr.adb";
for Spec ("ARM_Database") use "arm_db.ads";
for Body ("ARM_Database") use "arm_db.adb";
for Spec ("ARM_File") use "arm_file.ads";
for Body ("ARM_File") use "arm_file.adb";
for Spec ("ARM_Format") use "arm_frm.ads";
for Body ("ARM_Format") use "arm_frm.adb";
for Spec ("ARM_Format.Data") use "arm_frmd.ads";
for Body ("ARM_Format.Data") use "arm_frmd.adb";
for Body ("ARM_Format.Scan") use "arm_frms.adb";
for body ("ARM_Formatter") use "arm_form.ada";
for spec ("ARM_HTML") use "arm_html.ads";
for Body ("ARM_HTML") use "arm_html.adb";
for Spec ("ARM_Index") use "arm_indx.ads";
for Body ("ARM_Index") use "arm_indx.adb";
for Spec ("ARM_Input") use "arm_inp.ads";
for Body ("ARM_Input") use "arm_inp.adb";
for Spec ("ARM_Master") use "arm_mast.ads";
for Body ("ARM_Master") use "arm_mast.adb";
for Spec ("ARM_Output") use "arm_out.ads";
for spec ("ARM_RTF") use "arm_rtf.ads";
for Body ("ARM_RTF") use "arm_rtf.adb";
for Spec ("ARM_String") use "arm_str.ads";
for Body ("ARM_String") use "arm_str.adb";
for Spec ("ARM_Subindex") use "arm_sub.ads";
for Body ("ARM_Subindex") use "arm_sub.adb";
for Spec ("ARM_Syntax") use "arm_syn.ads";
for Body ("ARM_Syntax") use "arm_syn.adb";
for Spec ("ARM_Text") use "arm_text.ads";
for Body ("ARM_Text") use "arm_text.adb";
for Spec ("ARM_Texinfo") use "arm_texi.ads";
for Body ("ARM_Texinfo") use "arm_texi.adb";
end Naming;
package Compiler is
-- upstream wants Ada 2005 syntax, no GNAT-specific pragmas.
-- We disable some warnings to minimize source diff with upstream.
-- We append ADAFLAGS so the Makefile can add or override options.
Switches :=
("-g",
"-O0",
"-gnat2005",
"-gnatfoqQ",
"-gnatVa",
"-gnatwaCeFKLMP",
"-fstack-check",
"-gnatybefp")
& External_As_List ("ADAFLAGS", " ");
for Default_Switches ("Ada") use Switches;
-- arm_frm has code that passes the same object via two 'in out'
-- params; GNAT 4.8 warns about that, so we suppress the warning
-- here.
for Switches ("arm_frm.adb") use Switches & ("-gnatw.I");
end Compiler;
package Binder is
for Default_Switches ("Ada") use ("-E");
end Binder;
package Builder is
for Default_Switches ("Ada") use ("-C");
-- We use ".exe" extension even on non-Windows, to simplify the makefiles.
for Executable_Suffix use ".exe";
for Executable ("ARM_FORM.ADA") use "arm_form.exe";
end Builder;
package Linker is
for Default_Switches ("Ada") use External_As_List ("LDFLAGS", " ");
end Linker;
end ARM_Info;
|
