From 519acab098317f6eab49b612e49d8fcc6562da8f Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 13 Aug 2019 08:08:52 +0000 Subject: [PATCH] [Ada] Remove unused component in record type The component has been unused for a while. No functional changes. 2019-08-13 Eric Botcazou 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 | 5 +++++ gcc/ada/ali.adb | 3 --- gcc/ada/ali.ads | 14 +++++--------- 3 files changed, 10 insertions(+), 12 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c0c6c53140d..7a6d510e6c4 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-08-13 Eric Botcazou + + * ali.ads (Linker_Option_Record): Remove Original_Pos component. + * ali.adb (Scan_ALI): Do not set it. + 2019-08-13 Eric Botcazou * sem_ch3.adb (Build_Derived_Concurrent_Type): Add a couple of diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index feea73f010f..ab9810466bd 100644 --- 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 fc6e5921f17..22bf8a2b079 100644 --- 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, -- 2.30.2