From a54d0eb4b0cb6335ddff8b01aad449a0d31fe6fb Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 4 Aug 2011 17:18:34 +0200 Subject: [multiple changes] 2011-08-04 Robert Dewar * sem_ch3.adb, make.adb, a-cohata.ads, sem_prag.adb, makeutl.adb, lib-xref-alfa.adb: Minor reformatting. 2011-08-04 Marc Sango * sem_ch12.adb (Analyze_Generic_Package_Declaration, Analyze_Generic_Subprogram_Declaration, Analyze_Package_Instantiation, Analyze_Subprogram_Instantiation): Check absence of generic in SPARK mode. 2011-08-04 Tristan Gingold * bindgen.adb (Gen_Adainit_C): Remove. (Gen_Adafinal_C): Ditto. (Gen_Elab_Externals_C): Ditto. (Gen_Elab_Calls_C): Ditto. (Gen_Elab_Order_C): Ditto. (Gen_Elab_Defs_C): Ditto. (Gen_Finalize_Library_C): Ditto. (Gen_Finalize_Library_Defs_C): Ditto. (Gen_Main_C): Ditto. (Gen_Output_File_C): Ditto. (Gen_Restrictions_C): Ditto. (Gen_Versions_C): Ditto. (Write_Info_Ada_C): Ditto. (Gen_Object_Files_Options): Call WBI instead of Write_Info_Ada_C (Gen_Output_File): Do not force Ada_Bind_File anymore. Always call Gen_Output_File_Ada. * gnatlink.adb (Begin_Info): Now a constant. (End_Info): Ditto. (Ada_Bind_File): Remove (Process_Args): Do not handle -A/-C. Remove not Ada_Bind_File cases. * switch-b.adb (Scan_Binder_Switches): Do not handle -C. * gnatbind.adb (Gnatbind): Remove not Ada_Bind_File cases. * opt.ads (Ada_Bind_File): Remove. 2011-08-04 Thomas Quinot * projects.texi: Document target-specific directory in default project path for gnatmake. 2011-08-04 Thomas Quinot * gnatls.adb, prj-env.adb: Add $prefix/share/gpr to default project path in all cases . From-SVN: r177395 --- gcc/ada/switch-b.adb | 9 --------- 1 file changed, 9 deletions(-) (limited to 'gcc/ada/switch-b.adb') diff --git a/gcc/ada/switch-b.adb b/gcc/ada/switch-b.adb index 0d44aa8..8b66267 100644 --- a/gcc/ada/switch-b.adb +++ b/gcc/ada/switch-b.adb @@ -26,7 +26,6 @@ with Debug; use Debug; with Osint; use Osint; with Opt; use Opt; -with Output; use Output; with System.WCh_Con; use System.WCh_Con; @@ -166,14 +165,6 @@ package body Switch.B is Ptr := Ptr + 1; Check_Only := True; - -- Processing for C switch - - when 'C' => - Ptr := Ptr + 1; - Ada_Bind_File := False; - - Write_Line ("warning: gnatbind switch -C is obsolescent"); - -- Processing for d switch when 'd' => -- cgit v1.1