diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/ali.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/ali.ads | 14 |
3 files changed, 10 insertions, 12 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c0c6c53..7a6d510 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 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 diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index feea73f..ab98104 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 fc6e592..22bf8a2 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, |