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
|
Explicitly use gnatgcc as the compiler driver, rather than gcc,
because gcc may not be the default Ada compiler.
Index: asis/a4g-gnat_int.adb
===================================================================
--- asis/a4g-gnat_int.adb.orig
+++ asis/a4g-gnat_int.adb
@@ -72,7 +72,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 --
Index: tools/tool_utils/asis_ul-common.adb
===================================================================
--- tools/tool_utils/asis_ul-common.adb.orig
+++ tools/tool_utils/asis_ul-common.adb
@@ -74,7 +74,7 @@
if Gnatmake_Call then
return Target & "gnatmake";
else
- return Target & "gcc";
+ return Target & "gnatgcc";
end if;
end if;
Index: asis/a4g-contt.adb
===================================================================
--- asis/a4g-contt.adb.orig
+++ asis/a4g-contt.adb
@@ -977,7 +977,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;
|
