gcc -> egcc in ada tools.

From John R. Shannon.
This commit is contained in:
espie 2002-11-24 15:43:30 +00:00
parent a435eb713a
commit 3ba8111022
5 changed files with 60 additions and 0 deletions

View File

@ -0,0 +1,12 @@
$OpenBSD: patch-gcc_ada_gnatchop_adb,v 1.1 2002/11/24 15:43:30 espie Exp $
--- gcc/ada/gnatchop.adb.orig Sun Dec 16 02:13:40 2001
+++ gcc/ada/gnatchop.adb Sun Nov 24 16:36:34 2002
@@ -1640,7 +1640,7 @@ procedure Gnatchop is
begin
-- Check presence of required executables
- Gnat_Cmd := Locate_Executable ("gcc");
+ Gnat_Cmd := Locate_Executable ("egcc");
if Gnat_Cmd = null then
goto No_Files_Written;

View File

@ -0,0 +1,12 @@
$OpenBSD: patch-gcc_ada_gnatlink_adb,v 1.1 2002/11/24 15:43:30 espie Exp $
--- gcc/ada/gnatlink.adb.orig Sat May 4 05:28:12 2002
+++ gcc/ada/gnatlink.adb Sun Nov 24 16:36:34 2002
@@ -109,7 +109,7 @@ procedure Gnatlink is
subtype chars_ptr is System.Address;
- Gcc : String_Access := Program_Name ("gcc");
+ Gcc : String_Access := Program_Name ("egcc");
Read_Mode : constant String := "r" & ASCII.Nul;

View File

@ -0,0 +1,12 @@
$OpenBSD: patch-gcc_ada_make_adb,v 1.1 2002/11/24 15:43:30 espie Exp $
--- gcc/ada/make.adb.orig Sat May 4 05:28:19 2002
+++ gcc/ada/make.adb Sun Nov 24 16:36:34 2002
@@ -412,7 +412,7 @@ package body Make is
-- Compiler, Binder & Linker Data and Subprograms --
----------------------------------------------------
- Gcc : String_Access := Program_Name ("gcc");
+ Gcc : String_Access := Program_Name ("egcc");
Gnatbind : String_Access := Program_Name ("gnatbind");
Gnatlink : String_Access := Program_Name ("gnatlink");
-- Default compiler, binder, linker programs

View File

@ -0,0 +1,12 @@
$OpenBSD: patch-gcc_ada_mdlltool_adb,v 1.1 2002/11/24 15:43:30 espie Exp $
--- gcc/ada/mdlltool.adb.orig Sat May 4 05:28:20 2002
+++ gcc/ada/mdlltool.adb Sun Nov 24 16:36:34 2002
@@ -42,7 +42,7 @@ package body MDLL.Tools is
Dlltool_Name : constant String := "dlltool";
Dlltool_Exec : OS_Lib.String_Access;
- Gcc_Name : constant String := "gcc";
+ Gcc_Name : constant String := "egcc";
Gcc_Exec : OS_Lib.String_Access;
Gnatbind_Name : constant String := "gnatbind";

View File

@ -0,0 +1,12 @@
$OpenBSD: patch-gcc_ada_mlib-utl_adb,v 1.1 2002/11/24 15:43:30 espie Exp $
--- gcc/ada/mlib-utl.adb.orig Tue Oct 2 15:45:38 2001
+++ gcc/ada/mlib-utl.adb Sun Nov 24 16:36:34 2002
@@ -42,7 +42,7 @@ package body MLib.Utl is
Initialized : Boolean := False;
- Gcc_Name : constant String := "gcc";
+ Gcc_Name : constant String := "egcc";
Gcc_Exec : OS_Lib.String_Access;
Ar_Name : constant String := "ar";