1
# DP: use gcc-4.8 instead of gcc as the command name.
3
Index: b/src/gcc/ada/comperr.adb
4
===================================================================
5
--- a/src/gcc/ada/comperr.adb
6
+++ b/src/gcc/ada/comperr.adb
11
- ("| Include the exact gcc or gnatmake command " &
12
+ ("| Include the exact gcc-4.8 or gnatmake command " &
16
Index: b/src/gcc/ada/gnatlink.adb
17
===================================================================
18
--- a/src/gcc/ada/gnatlink.adb
19
+++ b/src/gcc/ada/gnatlink.adb
21
-- This table collects the arguments to be passed to compile the binder
24
- Gcc : String_Access := Program_Name ("gcc", "gnatlink");
25
+ Gcc : String_Access := Program_Name ("gcc-4.8", "gnatlink");
27
Read_Mode : constant String := "r" & ASCII.NUL;
32
Write_Line (" --GCC=comp Use comp as the compiler");
33
- Write_Line (" --LINK=nam Use 'nam' for the linking rather than 'gcc'");
34
+ Write_Line (" --LINK=nam Use 'nam' for the linking rather " &
37
Write_Line (" [non-Ada-objects] list of non Ada object files");
38
Write_Line (" [linker-options] other options for the linker");
39
Index: b/src/gcc/ada/make.adb
40
===================================================================
41
--- a/src/gcc/ada/make.adb
42
+++ b/src/gcc/ada/make.adb
44
-- Compiler, Binder & Linker Data and Subprograms --
45
----------------------------------------------------
47
- Gcc : String_Access := Program_Name ("gcc", "gnatmake");
48
+ Gcc : String_Access := Program_Name ("gcc-4.8", "gnatmake");
49
Original_Gcc : constant String_Access := Gcc;
50
-- Original_Gcc is used to check if Gcc has been modified by a switch
51
-- --GCC=, so that for VM platforms, it is not modified again, as it can
52
Index: b/src/gcc/ada/gnatchop.adb
53
===================================================================
54
--- a/src/gcc/ada/gnatchop.adb
55
+++ b/src/gcc/ada/gnatchop.adb
57
Config_File_Name : constant String_Access := new String'("gnat.adc");
58
-- The name of the file holding the GNAT configuration pragmas
60
- Gcc : String_Access := new String'("gcc");
61
+ Gcc : String_Access := new String'("gcc-4.8");
62
-- May be modified by switch --GCC=
64
Gcc_Set : Boolean := False;
65
Index: b/src/gcc/ada/mdll-utl.adb
66
===================================================================
67
--- a/src/gcc/ada/mdll-utl.adb
68
+++ b/src/gcc/ada/mdll-utl.adb
70
Dlltool_Name : constant String := "dlltool";
71
Dlltool_Exec : OS_Lib.String_Access;
73
- Gcc_Name : constant String := "gcc";
74
+ Gcc_Name : constant String := "gcc-4.8";
75
Gcc_Exec : OS_Lib.String_Access;
77
Gnatbind_Name : constant String := "gnatbind";
82
- Print_Command ("gcc", Arguments (1 .. A));
83
+ Print_Command ("gcc-4.8", Arguments (1 .. A));
85
OS_Lib.Spawn (Gcc_Exec.all, Arguments (1 .. A), Success);
87
Index: b/src/gcc/ada/mlib-utl.adb
88
===================================================================
89
--- a/src/gcc/ada/mlib-utl.adb
90
+++ b/src/gcc/ada/mlib-utl.adb
92
if Driver_Name = No_Name then
93
if Gcc_Exec = null then
94
if Gcc_Name = null then
95
- Gcc_Name := Osint.Program_Name ("gcc", "gnatmake");
96
+ Gcc_Name := Osint.Program_Name ("gcc-4.8", "gnatmake");
99
Gcc_Exec := Locate_Exec_On_Path (Gcc_Name.all);
100
Index: b/src/gcc/ada/prj-makr.adb
101
===================================================================
102
--- a/src/gcc/ada/prj-makr.adb
103
+++ b/src/gcc/ada/prj-makr.adb
106
procedure Dup2 (Old_Fd, New_Fd : File_Descriptor);
108
- Gcc : constant String := "gcc";
109
+ Gcc : constant String := "gcc-4.8";
110
Gcc_Path : String_Access := null;
112
Non_Empty_Node : constant Project_Node_Id := 1;