freebsd-ports/lang/gnat/files/patch-ad

*** 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