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
133
134
135
136
137
138
139
|
Description: handle ADAFLAGS CPPFLAGS
Author: Nicolas Boulenguez <nicolas@debian.org>
Forwarded: no
--- a/common.gpr
+++ b/common.gpr
@@ -38,6 +38,9 @@
"-gnatyg");
Ada_Relaxed_Switches := ("-gnatf", "-gnatws");
+ Adaflags := External_As_List ("ADAFLAGS", " ");
+ Ldflags := External_As_List ("LDFLAGS", " ");
+
Processors := External ("PROCESSORS", "1");
package Builder is
@@ -67,9 +70,14 @@
end case;
for Default_Switches ("ada") use
- Builder'Default_Switches ("ada") & ("-j" & Processors);
+ Builder'Default_Switches ("ada") & ("-j" & Processors)
+ & Adaflags;
end Builder;
+ package Linker is
+ for Default_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
@@ -43,4 +43,6 @@
package Binder renames Common.Binder;
package Ide renames Common.Ide;
+
+ 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
@@ -22,4 +22,5 @@
for Executable ("gnat2xml-driver.adb") use "gnat2xml";
end Builder;
+ 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/gnat2xml/xml2gnat.gpr
+++ b/tools/gnat2xml/xml2gnat.gpr
@@ -17,4 +17,5 @@
package Binder renames Common.Binder;
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end Xml2gnat;
--- a/tools/gnatcheck/gnatcheck.gpr
+++ b/tools/gnatcheck/gnatcheck.gpr
@@ -35,4 +35,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
@@ -35,4 +35,5 @@
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
@@ -39,4 +39,5 @@
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end Gnatmetric;
--- a/tools/gnatpp/gnatpp.gpr
+++ b/tools/gnatpp/gnatpp.gpr
@@ -34,4 +34,5 @@
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
@@ -46,4 +46,5 @@
package Binder renames Common.Binder;
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end Gnatstub;
--- a/tools/gnattest/gnattest.gpr
+++ b/tools/gnattest/gnattest.gpr
@@ -37,4 +37,5 @@
package Binder renames Common.Binder;
package Ide renames Common.Ide;
+ package Linker renames Common.Linker;
end GNATtest;
|
