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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d75028d2fa484fb0fade6f77bc6f07ea6763f937..03e8383aecb8865ef9feeb3fc223113ad56737f0 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,10 @@
+2018-03-23  Eric Botcazou  <ebotcazou@adacore.com>
+
+       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  <ebotcazou@adacore.com>
 
        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 802e905e8f2c6a49b478fe665b85d56a8ba89d55..feff02f4062fcffe3aac64608cfba7be659928fe 100644 (file)
--- 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 cea664bf75fcd5a970b9f1dbbb7cd8073162398c..855d6d38a5bb9d13c9154937230d8421cabcb5a8 100644 (file)
--- 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