diff options
Diffstat (limited to 'lang/gnat/files/patch-ae')
| -rw-r--r-- | lang/gnat/files/patch-ae | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/lang/gnat/files/patch-ae b/lang/gnat/files/patch-ae new file mode 100644 index 000000000000..85b50c157c15 --- /dev/null +++ b/lang/gnat/files/patch-ae @@ -0,0 +1,36 @@ +*** 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 |