[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c0c6c53140dd425dd32737d3a9b0051adb5d63d3..7a6d510e6c4bed016a747d1a016b92645e3bd332 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb
index feea73f010f9bf2d580112e8073cd288a0b0f393..ab9810466bde09a6ad9c85f3ffabf895681f0080 100644 (file)
--- a/gcc/ada/ali.adb
+++ b/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

diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads
index fc6e5921f1728a32eeaf8882c15adaff7ad8777e..22bf8a2b0793bdd6942e22478c411aae44b2e6b2 100644 (file)
--- a/gcc/ada/ali.ads
+++ b/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,