[Ada] Remove unused component in record type

The component has been unused for a while.  No functional changes.

2019-08-13  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* ali.ads (Linker_Option_Record): Remove Original_Pos component.
	* ali.adb (Scan_ALI): Do not set it.

From-SVN: r274360

gcc/ada/ChangeLog

 2019-08-13  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* ali.ads (Linker_Option_Record): Remove Original_Pos component.
+	* ali.adb (Scan_ALI): Do not set it.
+
+2019-08-13  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* sem_ch3.adb (Build_Derived_Concurrent_Type): Add a couple of
 	local variables and use them.  When the derived type fully
 	constrains the parent type, rewrite it as a subtype of an

gcc/ada/ali.adb

@@ -3204,9 +3204,6 @@ package body ALI is
 
             Linker_Options.Table (Linker_Options.Last).Internal_File :=
               Is_Internal_File_Name (F);
-
-            Linker_Options.Table (Linker_Options.Last).Original_Pos :=
-              Linker_Options.Last;
          end if;
 
          --  If there are notes present, scan them

gcc/ada/ali.ads

@@ -725,15 +725,11 @@ package ALI is
       --  Set True if the linker options are from an internal file. This is
       --  used to insert certain standard entries after all the user entries
       --  but before the entries from the run-time.
-
-      Original_Pos : Positive;
-      --  Keep track of original position in the linker options table. This
-      --  is used to implement a stable sort when we sort the linker options
-      --  table.
    end record;
 
-   --  The indexes of active entries in this table range from 1 to the
-   --  value of Linker_Options.Last. The zero'th element is for sort call.
+   --  The indexes of active entries in this table range from 1 to
+   --  the value of Linker_Options.Last. The zero'th element is for
+   --  convenience if the table needs to be sorted.
 
    package Linker_Options is new Table.Table (
      Table_Component_Type => Linker_Option_Record,
@@ -770,8 +766,8 @@ package ALI is
    end record;
 
    --  The indexes of active entries in this table range from 1 to the
-   --  value of Linker_Options.Last. The zero'th element is for convenience
-   --  if the table needs to be sorted.
+   --  value of Notes.Last. The zero'th element is for convenience if
+   --  the table needs to be sorted.
 
    package Notes is new Table.Table (
      Table_Component_Type => Notes_Record,