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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
Description: handle ADAFLAGS CPPFLAGS
Author: Nicolas Boulenguez <nicolas@debian.org>
Forwarded: no
--- a/common.gpr
+++ b/common.gpr
@@ -47,6 +47,9 @@
"-gnatyg");
Ada_Relaxed_Switches := ("-gnatf", "-gnatws");
+ Adaflags := External_As_List ("ADAFLAGS", " ");
+ Ldflags := External_As_List ("LDFLAGS", " ");
+
Processors := External ("PROCESSORS", "1");
package Builder is
@@ -89,8 +92,17 @@
when others =>
null;
end case;
+
+ -- Put ADAFLAGS last so that they take priority.
+ for Default_Switches ("Ada") use Compiler'Default_switches ("Ada")
+ & Adaflags;
end Compiler;
+ package Linker is
+ -- Put LDFLAGS first so that they affect libraries.
+ for Leading_Switches ("Ada") use Ldflags;
+ end Linker;
+
package Binder is
for Default_Switches ("ada") use ("-static");
end Binder;
--- a/tools/asistant/asistant.gpr
+++ b/tools/asistant/asistant.gpr
@@ -52,4 +52,5 @@
for Install_Name use "asislib";
end Install;
+ package Linker renames Common.Linker;
end Asistant;
--- a/tools/gnat2xml/boot.gpr
+++ b/tools/gnat2xml/boot.gpr
@@ -24,4 +24,5 @@
for Executable ("gnat2xml-xml2gnat.adb") use "xml2gnat";
end Builder;
+ package Linker renames Common.Linker;
end Boot;
--- a/tools/gnat2xml/gnat2xml.gpr
+++ b/tools/gnat2xml/gnat2xml.gpr
@@ -34,4 +34,5 @@
package Binder renames Common.Binder;
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end Gnat2xml;
--- a/tools/gnat2xml/self_rep.gpr
+++ b/tools/gnat2xml/self_rep.gpr
@@ -19,4 +19,5 @@
-- unformatted.
end Builder;
+ package Linker renames Common.Linker;
end Self_Rep;
--- a/tools/gnat2xml/tokens.gpr
+++ b/tools/gnat2xml/tokens.gpr
@@ -17,7 +17,8 @@
package Builder is
for Default_Switches ("ada") use
- ("-O0", "-g", "-gnata", "-gnatyN", "-gnatyM30000", "-gnatws");
+ ("-O0", "-g", "-gnata", "-gnatyN", "-gnatyM30000", "-gnatws")
+ & Common.Adaflags;
-- Need to suppress style warnings, because the code is completely
-- unformatted.
for Executable ("gnat2xml-gnat2xsd.adb") use "gnat2xsd";
@@ -25,4 +26,5 @@
for Executable ("gnat2xml-xml2gnat.adb") use "xml2gnat";
end Builder;
+ package Linker renames Common.Linker;
end Tokens;
--- a/tools/gnatcheck/gnatcheck.gpr
+++ b/tools/gnatcheck/gnatcheck.gpr
@@ -37,4 +37,5 @@
package Binder renames Common.Binder;
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end Gnatcheck;
--- a/tools/gnatelim/gnatelim.gpr
+++ b/tools/gnatelim/gnatelim.gpr
@@ -36,4 +36,5 @@
package Compiler renames Common.Compiler;
package Binder renames Common.Binder;
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end Gnatelim;
--- a/tools/gnatmetric/gnatmetric.gpr
+++ b/tools/gnatmetric/gnatmetric.gpr
@@ -41,4 +41,5 @@
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end Gnatmetric;
--- a/tools/gnatpp/gnatpp.gpr
+++ b/tools/gnatpp/gnatpp.gpr
@@ -35,4 +35,5 @@
package Compiler renames Common.Compiler;
package Binder renames Common.Binder;
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end Gnatpp;
--- a/tools/gnatstub/gnatstub.gpr
+++ b/tools/gnatstub/gnatstub.gpr
@@ -53,4 +53,5 @@
for Install_Name use "asistools";
end Install;
+ package Linker renames Common.Linker;
end Gnatstub;
--- a/tools/gnattest/gnattest.gpr
+++ b/tools/gnattest/gnattest.gpr
@@ -44,4 +44,5 @@
package Binder renames Common.Binder;
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end GNATtest;
|
