From bd1643cc0259391b07e8dd13b11230af0fcd281c Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 23 Mar 2018 23:20:59 +0000 Subject: [PATCH] re PR ada/85007 (-b flag to gnatlink not recognized) PR ada/85007 * gnatlink.adb (Gnatlink): Remove handling of -b switch. * doc/gnat_ugn/building_executable_programs_with_gnat.rst (gnatlink): Remove documentation of -b switch. From-SVN: r258828 --- gcc/ada/ChangeLog | 7 +++++ ...building_executable_programs_with_gnat.rst | 8 ----- gcc/ada/gnatlink.adb | 31 ------------------- 3 files changed, 7 insertions(+), 39 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d75028d2fa4..03e8383aecb 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2018-03-23 Eric Botcazou + + PR ada/85007 + * gnatlink.adb (Gnatlink): Remove handling of -b switch. + * doc/gnat_ugn/building_executable_programs_with_gnat.rst (gnatlink): + Remove documentation of -b switch. + 2018-03-23 Eric Botcazou PR ada/85036 diff --git a/gcc/ada/doc/gnat_ugn/building_executable_programs_with_gnat.rst b/gcc/ada/doc/gnat_ugn/building_executable_programs_with_gnat.rst index 802e905e8f2..feff02f4062 100644 --- a/gcc/ada/doc/gnat_ugn/building_executable_programs_with_gnat.rst +++ b/gcc/ada/doc/gnat_ugn/building_executable_programs_with_gnat.rst @@ -7270,14 +7270,6 @@ The following switches are available with the ``gnatlink`` utility: an executable called :file:`try`. -.. index:: -b (gnatlink) - -:switch:`-b {target}` - Compile your program to run on ``target``, which is the name of a - system configuration. You must have a GNAT cross-compiler built if - ``target`` is not the same as your host system. - - .. index:: -B (gnatlink) :switch:`-B{dir}` diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index cea664bf75f..855d6d38a5b 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -425,36 +425,6 @@ procedure Gnatlink is elsif Arg'Length = 2 then case Arg (2) is - when 'b' => - Linker_Options.Increment_Last; - Linker_Options.Table (Linker_Options.Last) := - new String'(Arg); - - Binder_Options.Increment_Last; - Binder_Options.Table (Binder_Options.Last) := - Linker_Options.Table (Linker_Options.Last); - - Next_Arg := Next_Arg + 1; - - if Next_Arg > Argument_Count then - Exit_With_Error ("Missing argument for -b"); - end if; - - Get_Machine_Name : declare - Name_Arg : constant String_Access := - new String'(Argument (Next_Arg)); - - begin - Linker_Options.Increment_Last; - Linker_Options.Table (Linker_Options.Last) := - Name_Arg; - - Binder_Options.Increment_Last; - Binder_Options.Table (Binder_Options.Last) := - Name_Arg; - - end Get_Machine_Name; - when 'f' => if Object_List_File_Supported then Object_List_File_Required := True; @@ -1430,7 +1400,6 @@ procedure Gnatlink is Write_Line (" -v -v Very verbose mode"); Write_Eol; Write_Line (" -o nam Use 'nam' as the name of the executable"); - Write_Line (" -b target Compile the binder source to run on target"); Write_Line (" -Bdir Load compiler executables from dir"); if Is_Supported (Map_File) then -- 2.30.2