summaryrefslogtreecommitdiffstats
path: root/meta/packages/gcc/gcc-4.3.1/debian/ada-gcc-name.dpatch
diff options
context:
space:
mode:
Diffstat (limited to 'meta/packages/gcc/gcc-4.3.1/debian/ada-gcc-name.dpatch')
-rw-r--r--meta/packages/gcc/gcc-4.3.1/debian/ada-gcc-name.dpatch87
1 files changed, 87 insertions, 0 deletions
diff --git a/meta/packages/gcc/gcc-4.3.1/debian/ada-gcc-name.dpatch b/meta/packages/gcc/gcc-4.3.1/debian/ada-gcc-name.dpatch
new file mode 100644
index 0000000000..681d634480
--- /dev/null
+++ b/meta/packages/gcc/gcc-4.3.1/debian/ada-gcc-name.dpatch
@@ -0,0 +1,87 @@
1#! /bin/sh -e
2
3# DP: use gcc-4.3 instead of gcc as the command name.
4
5dir=
6if [ $# -eq 3 -a "$2" = '-d' ]; then
7 pdir="-d $3"
8 dir="$3/"
9elif [ $# -ne 1 ]; then
10 echo >&2 "`basename $0`: script expects -patch|-unpatch as argument"
11 exit 1
12fi
13case "$1" in
14 -patch)
15 patch $pdir -f --no-backup-if-mismatch -p0 < $0
16 ;;
17 -unpatch)
18 patch $pdir -f --no-backup-if-mismatch -R -p0 < $0
19 ;;
20 *)
21 echo >&2 "`basename $0`: script expects -patch|-unpatch as argument"
22 exit 1
23esac
24exit 0
25
26Index: gcc/ada/comperr.adb
27===================================================================
28--- gcc/ada/comperr.adb.orig 2007-09-10 18:53:41.000000000 +0200
29+++ gcc/ada/comperr.adb 2007-12-05 00:15:52.596687382 +0100
30@@ -330,7 +330,7 @@
31 End_Line;
32
33 Write_Str
34- ("| Include the exact gcc or gnatmake command " &
35+ ("| Include the exact gcc-4.3 or gnatmake command " &
36 "that you entered.");
37 End_Line;
38
39Index: gcc/ada/gnatlink.adb
40===================================================================
41--- gcc/ada/gnatlink.adb.orig 2007-10-19 15:14:33.000000000 +0200
42+++ gcc/ada/gnatlink.adb 2007-12-05 00:15:52.596687382 +0100
43@@ -137,7 +137,7 @@
44 -- This table collects the arguments to be passed to compile the binder
45 -- generated file.
46
47- Gcc : String_Access := Program_Name ("gcc");
48+ Gcc : String_Access := Program_Name ("gcc-4.3");
49
50 Read_Mode : constant String := "r" & ASCII.Nul;
51
52@@ -1368,7 +1368,8 @@
53 end if;
54
55 Write_Line (" --GCC=comp Use comp as the compiler");
56- Write_Line (" --LINK=nam Use 'nam' for the linking rather than 'gcc'");
57+ Write_Line (" --LINK=nam Use 'nam' for the linking rather " &
58+ "than 'gcc-4.3'");
59 Write_Eol;
60 Write_Line (" [non-Ada-objects] list of non Ada object files");
61 Write_Line (" [linker-options] other options for the linker");
62Index: gcc/ada/make.adb
63===================================================================
64--- gcc/ada/make.adb.orig 2007-10-19 15:14:33.000000000 +0200
65+++ gcc/ada/make.adb 2007-12-05 00:15:52.604687208 +0100
66@@ -662,7 +662,7 @@
67 -- Compiler, Binder & Linker Data and Subprograms --
68 ----------------------------------------------------
69
70- Gcc : String_Access := Program_Name ("gcc");
71+ Gcc : String_Access := Program_Name ("gcc-4.3");
72 Gnatbind : String_Access := Program_Name ("gnatbind");
73 Gnatlink : String_Access := Program_Name ("gnatlink");
74 -- Default compiler, binder, linker programs
75Index: gcc/ada/gnatchop.adb
76===================================================================
77--- gcc/ada/gnatchop.adb.orig 2007-10-19 15:14:33.000000000 +0200
78+++ gcc/ada/gnatchop.adb 2007-12-05 00:15:52.612687034 +0100
79@@ -44,7 +44,7 @@
80 Config_File_Name : constant String_Access := new String'("gnat.adc");
81 -- The name of the file holding the GNAT configuration pragmas
82
83- Gcc : String_Access := new String'("gcc");
84+ Gcc : String_Access := new String'("gcc-4.3");
85 -- May be modified by switch --GCC=
86
87 Gcc_Set : Boolean := False;