mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-14 23:46:10 +00:00
37 lines
1.4 KiB
Plaintext
37 lines
1.4 KiB
Plaintext
|
*** gcc/ada/make.adb.orig Thu Jun 5 08:37:34 1997
|
||
|
|
--- gcc-2.7.2.1/ada/make.adb Thu Jun 5 11:30:57 1997
|
||
|
|
***************
|
||
|
|
*** 191,197 ****
|
||
|
|
-- 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");
|
||
|
|
|
||
|
|
--- 191,197 ----
|
||
|
|
-- 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");
|
||
|
|
|
||
|
|
***************
|
||
|
|
*** 778,784 ****
|
||
|
|
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
|
||
|
|
--- 778,784 ----
|
||
|
|
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
|