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
|
Description: Explicitly use gnatgcc as the compiler driver rather than gcc.
Gcc may not be the default Ada compiler.
.
The part in asis/a4g-a_opt.ads circumvents #759038.
The removed test was redundant in Debian anyway:
per policy, libasis-dev depends on the gnat-X.Y it was compiled with.
Moreover, another test checks the tree format version.
Author: Ludovic Brenta <lbrenta@debian.org>
Author: Nicolas Boulenguez <nicolas@debian.org>
Forwarded: not-needed
--- a/asis/a4g-gnat_int.adb
+++ b/asis/a4g-gnat_int.adb
@@ -75,7 +75,7 @@
LT : String renames ASIS_Line_Terminator;
Standard_GCC : constant String_Access :=
- GNAT.OS_Lib.Locate_Exec_On_Path ("gcc");
+ GNAT.OS_Lib.Locate_Exec_On_Path ("gnatgcc");
-----------------
-- Create_Tree --
--- a/tools/tool_utils/asis_ul-common.adb
+++ b/tools/tool_utils/asis_ul-common.adb
@@ -88,7 +88,7 @@
if Gnatmake_Call then
return Target & "gnatmake";
else
- return Target & "gcc";
+ return Target & "gnatgcc";
end if;
end if;
--- a/asis/a4g-contt.adb
+++ b/asis/a4g-contt.adb
@@ -989,7 +989,7 @@
if Dash_Idx > 0 then
Contexts.Table (Cont).GCC :=
Locate_Exec_On_Path
- (Tool_Name (Tool_Name'First .. Dash_Idx) & "gcc");
+ (Tool_Name (Tool_Name'First .. Dash_Idx) & "gnatgcc");
end if;
end;
--- a/asis/a4g-a_opt.ads
+++ b/asis/a4g-a_opt.ads
@@ -59,7 +59,7 @@
-- treated as an error: ASIS_Failed is raised and the warning message is
-- sent to an ASIS Diagnosis string.
- Strong_Version_Check : Boolean := True;
+ Strong_Version_Check : Boolean := False;
-- Strong version check means that version strings read from the tree and
-- stored in Gnatvsn are compared. Weak check means comparing ASIS version
-- numbers. See BA23-002
|
