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
|
#! /bin/sh -e
# DP: use gcc-4.3 instead of gcc as the command name.
dir=
if [ $# -eq 3 -a "$2" = '-d' ]; then
pdir="-d $3"
dir="$3/"
elif [ $# -ne 1 ]; then
echo >&2 "`basename $0`: script expects -patch|-unpatch as argument"
exit 1
fi
case "$1" in
-patch)
patch $pdir -f --no-backup-if-mismatch -p0 < $0
;;
-unpatch)
patch $pdir -f --no-backup-if-mismatch -R -p0 < $0
;;
*)
echo >&2 "`basename $0`: script expects -patch|-unpatch as argument"
exit 1
esac
exit 0
Index: gcc/ada/comperr.adb
===================================================================
--- gcc/ada/comperr.adb.orig 2007-09-10 18:53:41.000000000 +0200
+++ gcc/ada/comperr.adb 2007-12-05 00:15:52.596687382 +0100
@@ -330,7 +330,7 @@
End_Line;
Write_Str
- ("| Include the exact gcc or gnatmake command " &
+ ("| Include the exact gcc-4.3 or gnatmake command " &
"that you entered.");
End_Line;
Index: gcc/ada/gnatlink.adb
===================================================================
--- gcc/ada/gnatlink.adb.orig 2007-10-19 15:14:33.000000000 +0200
+++ gcc/ada/gnatlink.adb 2007-12-05 00:15:52.596687382 +0100
@@ -137,7 +137,7 @@
-- This table collects the arguments to be passed to compile the binder
-- generated file.
- Gcc : String_Access := Program_Name ("gcc");
+ Gcc : String_Access := Program_Name ("gcc-4.3");
Read_Mode : constant String := "r" & ASCII.Nul;
@@ -1368,7 +1368,8 @@
end if;
Write_Line (" --GCC=comp Use comp as the compiler");
- Write_Line (" --LINK=nam Use 'nam' for the linking rather than 'gcc'");
+ Write_Line (" --LINK=nam Use 'nam' for the linking rather " &
+ "than 'gcc-4.3'");
Write_Eol;
Write_Line (" [non-Ada-objects] list of non Ada object files");
Write_Line (" [linker-options] other options for the linker");
Index: gcc/ada/make.adb
===================================================================
--- gcc/ada/make.adb.orig 2007-10-19 15:14:33.000000000 +0200
+++ gcc/ada/make.adb 2007-12-05 00:15:52.604687208 +0100
@@ -662,7 +662,7 @@
-- Compiler, Binder & Linker Data and Subprograms --
----------------------------------------------------
- Gcc : String_Access := Program_Name ("gcc");
+ Gcc : String_Access := Program_Name ("gcc-4.3");
Gnatbind : String_Access := Program_Name ("gnatbind");
Gnatlink : String_Access := Program_Name ("gnatlink");
-- Default compiler, binder, linker programs
Index: gcc/ada/gnatchop.adb
===================================================================
--- gcc/ada/gnatchop.adb.orig 2007-10-19 15:14:33.000000000 +0200
+++ gcc/ada/gnatchop.adb 2007-12-05 00:15:52.612687034 +0100
@@ -44,7 +44,7 @@
Config_File_Name : constant String_Access := new String'("gnat.adc");
-- The name of the file holding the GNAT configuration pragmas
- Gcc : String_Access := new String'("gcc");
+ Gcc : String_Access := new String'("gcc-4.3");
-- May be modified by switch --GCC=
Gcc_Set : Boolean := False;
|
