diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2018-03-23 23:20:59 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2018-03-23 23:20:59 +0000 |
| commit | bd1643cc0259391b07e8dd13b11230af0fcd281c (patch) | |
| tree | 39ac18d5941a0b33f215e9e4cc35aad6456b5870 | |
| parent | f8e56962463899a75aa424b93e7ba32cabddd504 (diff) | |
| download | gcc-bd1643cc0259391b07e8dd13b11230af0fcd281c.zip gcc-bd1643cc0259391b07e8dd13b11230af0fcd281c.tar.gz gcc-bd1643cc0259391b07e8dd13b11230af0fcd281c.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/doc/gnat_ugn/building_executable_programs_with_gnat.rst | 8 | ||||
| -rw-r--r-- | gcc/ada/gnatlink.adb | 31 |
3 files changed, 7 insertions, 39 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d75028d..03e8383 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,12 @@ 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 * gnatlink.adb (Process_Args): Drop existing link switches if multiple switches are passed for --LINK. 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 802e905..feff02f 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 cea664b..855d6d3 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 |