*** ./ada/gnatcmd.adb.orig	Fri Sep 24 08:41:33 1999
--- ./ada/gnatcmd.adb	Tue Nov  2 02:44:41 1999
***************
*** 1173,1179 ****
  
        (Cname    => new S'("COMPILE"),
         Usage    => new S'("GNAT COMPILE filespec[,...] /qualifiers"),
!        Unixcmd  => new S'("gcc -c -x ada"),
         Switches => GCC_Switches'Access,
         Params   => new Parameter_Array'(1 => FILES_OR_WILDCARD),
         Defext   => "   "),
--- 1173,1179 ----
  
        (Cname    => new S'("COMPILE"),
         Usage    => new S'("GNAT COMPILE filespec[,...] /qualifiers"),
!        Unixcmd  => new S'("adagcc -c -x ada"),
         Switches => GCC_Switches'Access,
         Params   => new Parameter_Array'(1 => FILES_OR_WILDCARD),
         Defext   => "   "),