blob: 15066bfc11f2eeed11df30ffab9e32e5893386c3 (
plain) (
blame)
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
|
*** gcc-2.7.2.1/ada/make.adb.orig Thu Aug 14 00:02:45 1997
--- gcc-2.7.2.1/ada/make.adb Sun Nov 16 09:18:18 1997
***************
*** 201,207 ****
-- Compiler, Binder & Linker Data and Subprograms --
----------------------------------------------------
! Gcc : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gcc");
Gnatbind : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gnatbind");
Gnatlink : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gnatlink");
--- 201,207 ----
-- Compiler, Binder & Linker Data and Subprograms --
----------------------------------------------------
! Gcc : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("adagcc");
Gnatbind : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gnatbind");
Gnatlink : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gnatlink");
***************
*** 941,947 ****
Comp_Last := Comp_Last + 1;
Comp_Args (Comp_Last) := new String'(Name_Buffer (1 .. Name_Len));
! Display ("gcc", Comp_Args (Args'First .. Comp_Last));
return
GNAT.OS_Lib.Non_Blocking_Spawn
--- 941,947 ----
Comp_Last := Comp_Last + 1;
Comp_Args (Comp_Last) := new String'(Name_Buffer (1 .. Name_Len));
! Display ("adagcc", Comp_Args (Args'First .. Comp_Last));
return
GNAT.OS_Lib.Non_Blocking_Spawn
|